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第 一 篇 基础 实验 


实验 一 一 元 函数 及 其 图 形 


本 实验 的 目的 是 通过 图 形 来 认识 函数 ， 并 运用 函数 的 图 形 来 观察 和 分 析 函 数 的 有 关 特 性 ， 
建立 数 形 结合 的 思想 。 


1.1 函数 及 其 图 形 
Mathematica 画 区 间 [a,5] 上 函数 y= f(x) 的 图 形 的 命令 为 
Plot[f,{x,a,b}] 


画 参 数 方程 x= f(1),y = g(1),te [a,b] 所 表示 曲线 的 图 形 的 命令 为 
: ParametricPlot[{f,g},{t,a,b}] 


给 定 函数 
5+x2+x +x4 
5+5x+5x 


f(D= 


(a) 莲 出 了 (x) 在 区 间 [-4,4] 上 的 图 形 ; 
(b) 画 出 区 间 [-4,4] 上 7(z) 与 (sin)f(x) 的 图 形 。 
解 : (a) Mathematica 命令 为 
f[x_] = (S+ XA2 +XA3+XA4)MM(S+SX+SXA2); 
gL= Plot[lflx], {x, -4, 4}, PlotStyle -> RGBCoior[1 0, 0]]; 
图 形 如 图 1-1。 
(b) Mathematica 命令 为 
g2 = Plot[Sin[x] ff{x], {x, -4, 4}, PlotStyle -> RGBColor[0, 1, 0]];Show[gl, g2]; 
图 形 如 图 1-2。 


练习 1 观察 图 1-2， 并 解释 为 什么 两 个 图 形 在 此 区 域内 有 一 个 交点 。 
练习 2 夯 出 基本 初等 函数 的 图 形 ， 并 观察 它们 的 特点 。 


| 观察 函数 y -sm 二 的 图 形 ， 
解 : 在 区 间 [-1,1] 画 出 函数 的 图 形 如 图 1-3。 命 令 为 Plot[Sin[Ux],{x,-1,1}]; 


nn rt ee 
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四 
， 
[9 
1 | 


图 1-3 


从 图 1.3 中 可 以 看 到 函数 -aa 人 | x=0 附 近来 回 振荡 。 请 解释 其 原因 。 
练习 3 分 别 作出 以 下 函数 在 指定 区 间 的 图 形 ， 并 观察 函数 的 复合 情况 。 
(a) 在 区 间 [-5,5] 上 ， f(x) =VI+ 妇 ，Mathematica 命令 为 
Plot[Sqrt[1+x^2],{x,-5,5},PlotStyle->{Dashing[{0.02,0.01}])]; 
(b) f(x)=sincossinx,xe [-mr]，Mathematica 命令 为 
Plot[Sin[Cos[Sin[x]]], {x, -Pi, Pi}]; 
(0) f(x)= EL, xe [-5,5]，Mathematica 命令 为 
Plot[(Tan[Sin[x]] - Sin[Tan[x]])/x^2, {x, -5, $}]; 
(d) fi(x)=e’,f,(x)=arctanx, f(x)=e™™*,xe[-6,6]，Mathematica 命令 为 
Plot[{Exp[x], AreTan[x], Exp[AreTan[x]]}, {x, -6, 6}, PlotPoints -> 100]; 
(参数 方程 的 图 形 〉 绘 出 以 下 参数 方程 的 图 形 。 
区 = 人 f =2(t— sint) 
y(t) =2sin’t y(t) =2(1 — cos?) 


解 ， 分别 输入 以 下 Mathematica 语句 ， 图 形 如 图 1-4。 


ID 了 


xl[t_]= 2 Cos[t]^3; yl[t_] = 2Sin[t]^3; ParametricPlot[{x1[t], y1[t]}, {t, 0, 2 Pi}]; 
x2[t_] = 2(t - Sin[t]); y2[t_] = 2(1 - Cos[t])); ParametricPlot[{x2[t], y2[t]}, {t, 0, 4 Pi}]; 
练习 4 ”( 极 坐标 图 形 ) 分 别 画 出 心 形 线 、 三 叶 玫 瑰 线 的 图 形 。 

画 心 形 线 的 Mathematica 命令 为 

r[t_] := (3 Cos[t]^2 - 1)/2;ParametricPlot[{r[t] Cos[t], r[t] Sin[t]}, {t, 0, 2 Pi}]; 

画 三 叶 玫瑰 线 的 Mathematica 命令 为 

r[t_] := 2 Cos[t];ParametricPlot[{r[t] Cos[t], r[t] Sin[t]}, {t 0, 2 Pi}]; 

我 们 可 以 利用 Mathematica 中 的 条 件 语 句 来 画 分 段 函数 的 图 形 。 


二 地 
xsin 一 ,Xz0 
x 


som-| 的 图 形 。 


0,x=0 
解 ， Mathematica 语句 如 下 ， 得 到 的 图 形 如 图 1-5。 
ffx_] := x^2 Sin[L/x] /; x ?= 0; ffx_] := 0/;x= 0;Plot[f[x], {x, -1, 1}]; 


图 1-5 


在 很 多 实际 问题 中 ， 我 们 并 不 知道 函数 的 实际 表达 式 ， 而 仅仅 能 测量 到 函数 的 某 些 型 值 
点 ， 这 些 型 值 点 的 值 可 以 列 成 数据 表 。 这 称 为 函数 的 列表 表示 。 
分 别 画 出 坐标 为 已 世 ) 、(,4 六 + 六 ),(i=1,2,…,10) 的 散 点 图 ， 并 画 出 折线 图 。 
解 : 分 别 输入 以 下 Mathematica 命令 ， 得 到 结果 如 图 1-6。 
tl = Table[i^2, {i, 10}];g1 = ListPlot[t1, PlotStyle -> PointSize[0.02]]; 
22 = ListPlot[tl, PlotJoined -> True];Show[g1,g2]; 


t2 = Table[{i^2, 4 i^2 + i^3}, {i, 10}]; gl1 = ListPlot[t2, PlotStyle -> PointSize[0.02]]; 
g2 = ListPlot[t2, PlotJoined -> True]; Showl[gl, g2]; 
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图 1-6 


练习 5 分 别 输入 以 下 Mathematica 语句 ， 观 察 所 得 到 的 图 形 ， 并 体会 Mathematica 语句 中 参 
数 项 PlotRange 的 作用 。 
Plot[x^4 + Sinf10 x], {x, 0, $5}]; 
Plot[x^4 + Sin[10 x], {x, 0, $5}, PlotRange -> Alll; 
Plot[x^4 + Sin[10 x], {x, 0, $5}, PlotRange -> {-1, 1}]; 
Plot[x^4 + Sin[10 x], {x, 0, $}, PlotRange -> {{0, 1}, {-1, 2}}]; 
练习 6 利用 函数 的 图 形 研究 函数 的 性 质 。 函 数 f(x)= 2 ， 当 x=0 时 没有 定义 ， 然 而 函数 
的 图 形 在 x=0 点 有 着 很 好 的 性 质 。 
(a) 在 区 间 [-2,2] 上 画 出 函数 的 图 形 ， 并 另外 给 出 一 个 不 具有 这 个 性 质 的 函数 。 
(b) 当 疡 很 小 时 ， 太 及 接 近 于 1， 在 同一 坐标 系 中 ， 画 出 / 00 和 常数 函数 x= 0.9 ， 并 注意 
观察 它们 的 图 形 。 
(c) 选择 更 小 的 h， 重 复 (b) 的 操作 。 
练习 7 (a) 在 区 间 [-1.3,2.5] 上 画 出 函数 f(x) -一 的 图 形 ， 并 观察 所 得 到 图 形 ， 哪 一 部 分 是 
正确 的 ? 哪 一 部 分 是 错误 的 ? 
(b) 尽 可 能 找 出 不 正确 的 部 分 ， 并 用 以 下 语句 在 同一 区 间 画 出 f(x) 的 图 形 。 
. Plot[U/(1 - x), {x, -1.3, 2.5}, PlotRange -> {{0.95, 1.05}, All}]; 


(c) 在 区 间 [0.24] 上 ， 画 出 函数 f(x)=x+sin2nx 的 图 形 ， 并 解释 所 看 到 的 结果 。 


1.2” 涵 数 性 质 的 研究 

给 定 二 维 曲线 图 形 ， 如 何 判断 一 个 图 形 是 某 一 个 函数 的 图 形 已 在 高 等 数学 中 介绍 。 若 其 
是 某 一 个 函数 的 图 形 ( 一 个 x， 对 应 图 形 上 的 一 点 )， 我 们 如 何 从 图 形 观 察 函 数 的 单调 性 、 奇 
偶 性 、 周 期 性 等 ? 
实验 6 研究 函数 /(x)= 必 +3e* +log;(3 一 在 区 间 [-2,2] 上 图 形 的 特性 。 
解 : 输入 以 下 Mathematica 语句 : Plot[x^5 + 3 E^x + Log[3, 3 - x], {x, -2, 2}]; 

可 得 图 形 如 图 1-7， 由 图 形容 易 看 出 ， 从 左 到 右 ， 图 形 渐渐 上 升 。 因 而 是 增 函 数 。 
练习 8 选用 不 同 的 区 间 ， 如 [-3,3],[-10,10] 画 出 函数 f(x)=x 一 x 的 图 形 ， 并 判断 其 单调 性 ， 
试 解释 两 种 不 同 的 结果 。 
判断 函数 (x)=sin2mx+ cos2rx 是 否 为 周期 函数 。 
解 : 任 选 一 个 较 大 的 范围 ， 如 取 [-4, 4]， 在 此 区 间 上 画 出 函数 foo) 的 图 形 如 图 1-8。 

Plot[Sin{[2 Pi x] + Cos[2 Pi x], {x, -4, 4}]; 
可 以 看 出 函数 的 图 形 以 某 一 宽度 为 单位 重复 出 现 。 


车 一 个 函数 满足 :一 个 y 对 应 着 一 个 x， 则 其 反 函数 一 定 存在 ， 且 在 表达 式 中 将 y 换 成 党 
量 求解 x， 即将 所 得 表达 式 中 y 换 成 x，x 换 成 》 即 得 到 反 函 数 的 表达 式 。 
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实验 看 判断 函数 ，= f(x)= 必 +3x*+3x+1 的 反 函 数 的 存在 性 。 车 存在 , 求 反 函 数 的 表达 式 ， 
并 画 出 其 图 形 。 

解 : 解 方 程 y=x+3x*+3x+1 求 X。 输 入 Solve[y ==x^3+3x^2+3x+1,x]。 

因此 , 所 求 反 函 数 为 ?= -1+3r 。 输 入 Plot[-1+ x^(1/3), {x, -3, 3}]; 画 出 了 反 函数 在 区 间 [-3, 3] 
内 的 图 形 如 图 1-9。 


1 1.5 22.5 3 


bobo op 
hm DA 


图 1-7 1-8 图 1-9 


练习 9 给 定 函 数 F(z) = 妇 +2x2 -3x+4。 
(a) 请 观察 f(x) 与 f(-x) 的 图 形 ， 给 出 它们 之 间 的 关系 。 
(b) f(x) 与 1(x+3) 的 图 形 之 间 有 什么 关系 ? 
(c) f(9) 与 1(x+3)-3 的 图 形 之 间 有 什么 关系 ? 
(d) 请 观察 /09 与 (|x|),|f (zj,| (| 之 间 的 关系 ? 


我 们 还 可 以 借助 于 Mathematica 中 的 动画 功能 来 理解 不 同 图 形 之 间 的 关系 。 
实验 9 制作 函数 sin cx 的 图 形 动画 ， 观 察 参数 c 对 函数 图 形 的 影响 。 
解 : 输入 以 下 Mathematica 命令 。 

Do[Pilot[Sin[c x], {x, -Pi, Pi}, PlotRange -> {-1, 1}], {c, 1, 4, /3}]; 
部 分 图 形 如 图 1-10。 


(a) (b) (©) 
图 1-10 
作出 函数 f(x)=x+sincx 的 图 形 动画 ， 观 察 参 数 c 对 函数 图 形 的 影响 。 


以 下 Mathematica 命令 ， 即 可 得 到 一 系列 图 形 。 
DolPlot[x^2 + Sin[c x], {x, -3, 3}, PlotRange -> {-1, $5}], {c 1, $, /3}]; 


练习 10 ”观察 昭 函 数 y=x?， 当 p 连续 变化 时 函数 图 形 的 变化 。 
练习 11 . 观察 函数 y=sinx? ， 当 p 连续 变化 时 函数 图 形 的 变化 。 
1.3 ”关于 肾 数 图 形 的 进一步 研究 
利用 Mathematica， 我 们 可 以 画 出 一 些 难 以 想象 的 图 形 。 


画 出 以 下 参数 方程 的 图 形 。 


x(t) = soos [= 上 7cost 


(1) 


0) | = cosfcosSf 


一 Sint 
0 =5sm| -号 |:7si Gn A 


x(t)=(1+sint—2cos4t)cost 
G3) | . 
y(t)=(1+sint—2cos4t)sint 


解 : 分 别 输入 以 下 Mathematica 语句 ， 得 到 函数 的 图 形 如 图 1-11、 图 1-12、 图 1-13。 
ParametricPlot[{S$ Cos[-1UVs t] + 7 Cos[t], $ Sin[-11/S t] + 7 Sin[t]}, {t, 0, 10 Pi}, 
AspectRatio -> Automatic]; 
ParametricPlot[{ Cos[$ t]Cos[t], Sin[ t] Cos[3 ¢]}, {t, 0, Pi},AspectRatio -> Automatic]; 
ParametricPlot[(1 + Sin[t] - 2 Cos[4*t])*{ Cos[t], Sin[t]}, {t, 0, 2* Pi}, 
AspectRatio -> Automatic, Axes -> Nonel; 
外 ， 我 们 利用 Mathematica 可 以 在 某 些 整数 值 实现 函数 的 可 视 化 。 
12 画 出 前 25 个 素数 的 散 点 图 。 
解 : 输入 以 下 Mathematica 语句 ， 得 到 图 形 如 图 14。 
Table[Prime[n], {n, 25})]; 
ListPlot[Table[Prime[n], {n, 25}], PlotStyle -> PointSize[0.015]]; 


图 1-11 图 1-12 图 1-13 图 1-14 
练习 12 敏感 多 项 式 ) 一 个 nn 次 多 项 式 最 多 有 nn 个 根 。 例如， 三 次 多 项 式 (x 一 D(x 一 2)(x 一 3) 当 
X=1,2,3 时 为 0。 

(a) 画 出 这 个 三 次 多 项 式 的 图 形 , 然后 在 区 间 [-1,7.3] 上 画 出 7 次 多 项 式 (x 一 D(x 一 2)(x 一 3) 
(x 一 4)(x 一 5)(x 一 6)(x 一 7) 的 图 形 。 

(b) 利用 命令 Expand[] 将 这 个 7 次 多 项 式 展开 ， 你 将 得 到 X 的 系数 为 -28， 现 将 该 系数 变 
为 -28.01， 并 在 相 则 的 区 间 上 天 出 改变 后 的 多 项 式 的 图 形 ， 试 与 前 面 所 得 到 的 图 形 作 比较 ， 观 
察 有 多 少 个 零点 〈 根 ) 发 生 了 变化 ? 
练习 13 首先 回忆 一 下 sinx 的 性 质 ， 研 究 一 个 函数 f(x) 乘 以 sinx 后 图 形 的 变化 趋势 。 

(1) 区 间 [0, 15] 上 作出 函数 y=x,y, = 一 x, y=xsinx 的 图 形 。 

(2) 在 区 间 [0.15] 上 作出 函数 y =Inx,y, = 一 Inx,y=Inxsinx 的 图 形 。 


(3) 任 取 一 个 函数 f(x) 和 一 个 区 间 ， 作 出 函数 = f(x) 和 y, =sin f(x) 的 图 形 。 

(4) 试 给 出 函数 y = f(x) 和 y, = f(sinx) 的 图 形 之 间 的 关系 。 
练习 14 (a) 任意 选取 一 个 为 ， 观 察 sin (mm ),sin (sin (x% )),sin (sin (sin (x%))) 等 等 ， 你 能 得 到 什 
么 结论 ? 

(b) 画 出 sin(sinx) 以 及 sinx 的 更 多 重复 合 函数 的 图 形 ， 你 能 得 出 什么 结论 ? 


实验 二 极 限 


本 实验 的 目的 是 加 深 对 极限 概念 的 理解 ， 了 解 函数 极限 与 数列 极限 间 的 联系 ,进一步 理解 
无 穷 小 的 概念 和 收敛 速度 问题 。 

极限 的 概念 是 高 等 数学 的 起 点 , 理解 和 掌握 它 对 于 学 好 高 等 数学 十 分 重要 。 本 实验 将 从 直 
观 上 揭示 极限 的 本 质 。 


2.1 数列 的 极限 


2.1.1 数列 的 极限 


在 高 等 数学 中 ， 数 列 {a,} 有 极限 是 指 :, 对 于 数列 {4} 和 常数 4， 如 果 对 任意 正 数 =， 总 
存在 自然 数 N， 使 得 当 n>N 时 ， 恒 有 不 等 式 |a, -4 <e 成 立 ， 则 称 常数 4 为 数列 {a,} 的 极限 ， 
记 为 lima, =A。 ja 

通俗 的 说 法 是 ， 当 nn 充分 大 时 ，a 充分 接近 4A， 则 13| 、 


人 小 Dd 
实验 1 观察 数列 {Yn} 的 前 100 项 变化 趋势 。 20 0 00 0 i 
解 :我 们 可 以 画 出 其 散 点 图 , 借助 于 图 形 来 观察 它 的 变化 趋势 。 图 2-1 
输入 以 下 Mathematica 语句 ， 其 图 形 如 图 2-1 所 示 。 
t= N[Table[n^(1/n), {n, 1 100}]];ListPlot[t, PlotStyle -> PointSize[0.01S]]; 

从 图 2-1 中 可 看 出 , 这 个 数列 似乎 收敛 于 1。 下面 我 们 以 数值 的 方式 来 说 明 这 一 变化 趋势 。 
输入 以 下 语句 ， 并 观察 其 数值 结果 。 
m=2;xn=0; 
For[i = 1, i <= 1000, i += 50,If[Abs[xn - 1] > 10^-m, xn = N[n^(1/n), 20]; 


Print[i, " ", Xn]]]; 
设 该 数列 收敛 于 A =1+ xx 宇 0)， 不 妨 取 u=10*， 下 面 考察 Yn 与 4 的 接近 程度 。 输 入 以 
下 Mathematica 语句 。 


u=10^(2); A=1+u; m= 5;n=3;an=Sqrt3]; 

While[Abs[A - an] >= 10^(-m), n++;an = NIn^(Ln)]]; 

Printt” n=",n," an=",an" IA-anl=", Abs[A - an]] 

所 得 结果 表明 : 当 n=651，a, =1.01 时 ，a, 与 1+107” 的 距离 小 于 10。 

练习 1 判断 数列 人 /nj} 中 有 多 少 项 落 在 1+u(u=107) 的 10" 的 邻 域 内 。 当 充分 大 时 ，{x/n} 
还 在 该 邻 域内 吗 ? 取 m 为 其 它 数 重复 实验 1。 

练习 2 取 其 它 的 u 重复 上 面 的 实验 1。 
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练习 3 取 w=0 即 A=1， 重 复 练习 1， 你 能 得 出 什么 结论 ? 
观察 Fibonacci 数列 的 变化 趋势 。 
解 :Fibonacci 数列 具有 递 推 关 系 所 =1LF=lF=F_+F,,;, 令 R,= ;输入 以 下 Mathematica 
语句 0 
fnl = 1; fn2= 1;rnl=1; 
For[i = 3, i <= 14, i++, 
fn = fn2 + fnl;fn2 = fnl; fnl = fn; rn = N[fn2/fn1, 20]; dn = rn - rnl; rnl = rn; 
Print[i, LL es fnl, +9 . rn, [Ld dn]]; 
其 中 第 二 列 给 出 了 Fibonacci 数列 的 前 14 项 ， 第 3 列 给 出 了 RR, 的 值 ， 由 第 4 列 可 以 看 出 ， 
R -R_ ,一 0。 我 们 也 可 以 用 散 点 图 来 观察 Fibonacci 数列 的 变化 趋势 如 图 2-2， 输 入 以 下 
Mathematica 语句 。 
Clear[f]; ffn_] := fn ~- 1] + fln - 2]f10] = 1; f{1] = 1; 
fab20 = Table[lf{i], {i, 0, 20}];ListPlot[fab20, PlotStyle -> PointSize[0.02]]; 
Infab20 = Log[fab20];ListPlot[Infab20, PlotStyle -> PointSize[0.02]]; 


图 2-2 (b 图 为 取 对 数 以 后 的 图 形 ) 


为 了 更 好 地 观察 数列 的 变化 趋势 , 我 们 可 以 利用 Mathematica 的 动画 功能 来 进一步 观察 数 
列 随 着 = 的 增 大 的 变化 趋势 。 


利用 动画 观察 当时 数列 -三 的 变化 趋势 。 


解 : 逐渐 增加 点 并 画图 ， 其 Mathematica 语句 为 : 
Clear[tt];tt = {1, /2^2, 1/3^2}; Doftt = Append[tt, N[Ui^2]]; 
ListPlot[tt, PlotRange -> {0, 1}, PlotStyle -> PointSize[0.02]], {i, 4, 20}] 
这 里 画 了 16 幅 图 ( 列 出 部 分 图 如 图 2-3)， 从 左 至 右 图 中 点 数 逐 渐 增 多 ， 从 图 中 可 以 看 出 
所 画 出 的 点 逐渐 接近 于 x 轴 。 


1 1 1 。 1 
0.8 9, 0.8 0 | 0.8 
0.6 0.6 0.6 0.6 
0.4 0.4 0.4 0.4 
0.2 % DE 0.2| “ 0.2| “ 
. . I . . 9 a Ps Wk 和 ”。 Pa 
;| 人 2 4a 6 8 10- 了 2 35175 W051517.5 


(a) (b) (9 (d) 


练习 4 改变 终止 值 20， 重 做 实验 3。 


设 数列 {x,} 与 {y,} 由 下 式 确定 : 


=1,y=2 
Xn+l = Vy ,n=1,2,.… (2-1) 


加 十 思 
2 


nxl = 


观察 {%} 与 {y,]} 的 极限 是 否 存在 。 


解 : 输入 以 下 Mathematica 语句 进行 观察 ， 
Clear[lf, g]; ff{x_, y_] := Sqrt[x*y]; g[x_, y_] := (x + y)/2; xn = 1; yn =2; 
For[n = 2, n <= 100, n++, 
XN = xn; yN = yn; xn = N[f[xN, yN]]; yn = N[g[xN, yN]];]; 
Print["x100= "', xn," y100=",yn] 
运行 该 程序 可 判断 出 : {%,} 与 {y,} 有 极限 ， 且 这 两 极限 值 是 相等 的 (x0o = mo =1.45679) 。 


已 知 数列 {7} ,由 wu = 二 (十 为 + 二 瑟 JO=12,… 确定 的 数列 {a,} 称 为 数列 {x,} 的 算术 


设 {x,} 由 《2-1) 式 给 出 ， 观 察 数 列 {a,} 有 无 极限 。 
解 : 输入 以 下 Mathematica 语句 进行 观察 ， 
Clear[f, g];f[x_, y_] := Sqrt[x*y]; g[x_, y_] := (x + y)/2; 
s=l;xn=1;yn=2;n=1;ts={)}; 
While[Abs[s/n - yn] > 10^-3, n++; 
xN = xn; yN = yn;xn = N[fIxN, yN]]; yn = N[g[xN, yN]l; 
S=S+Xnits=Append[ts, s/n]; Print[n," ",xn," ",Ss/n]] 
部 分 结果 见 表 2-1。 


表 2-1 数列 及 其 算术 平均 数列 


1.41421 . 1.45679 1.45429 


1.45679 1.35685 1.45679 1.45513 


1.45679 1.40682 1.45679 1.45554 


1.45679 1.45179 1.45679 1.45579 


由 以 上 计算 结果 可 以 得 出 结论 ， 该 算术 平均 数列 极限 存在 ， 且 其 极限 与 {x,} 的 极限 相等 ， 
即 
im 一 人 + + + )=limx (2-2) 


画 出 这 两 个 数列 的 散 点 图 如 图 2-4， 我 们 可 以 更 清楚 地 看 到 这 一 结论 。 
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sd 


虽然 上 面 的 两 个 数列 收敛 到 同一 个 值 , 但 其 收敛 速度 却 有 
很 大 的 区 别 。 由 表 2-1 可 知 ， 当 n=300 时 ，&a, =1.45579 ， 而 
在 n=4 时 , 已 有 x =1.45679 = 极限 值 。 这 说 明 {a,} 的 收敛 速 
度 要 远 远 小 于 fx,} 的 收敛 速度 。 | 

事实 上 ， 只 要 {a,} 的 极限 存在 ，(2-2) 式 总 是 成 立 的， 该 结 
论 为 Stolz 定理 的 一 个 特例 。 


Stolz 定 理 :对 数列 {%,} 与 {y,}, 若 < 六 <…< 训 <…, 且 limy,=+ ;又 极限 im 一 = 


n+l n 


(可 为 te ), 则 lim 之 =1。 
ny 


练习 5 若 数列 {%} 由 (2-1) 式 给 出 ,观察 数列 {3/% 元 … 亏 } 有 无 极限 ， 若 有 极限 与 lim % 相 
等 吗 ? 证 明 你 的 结论 。 
练习 6 若 数 列 {x,} 由 (2-1) 式 给 出 ， 现 雪 数 列 || 与 全] 有 无 级 了， 车 有 极限 ， 这 两 


个 极限 间 存在 什么 关系 ? 证 明 你 的 结论 。 
练习 7 观察 数列 上 | 二 2 二 二 二 共有 无 极限 ， 其 中 数列 {x,}，{y,} 由 (2-1) 式 给 出 。 


若 该 数列 有 极限 ， 极 限 值 为 多 少 ? 证 明 你 的 结论 。 
练习 8 设 a 全 2+ 4,1,4 =V2 9 观察 数列 a, 的 极限 。 


(1) 在 平面 上 画 出 点 (n,a, )(n =1,2,…,1000) 的 散 点 图 和 折线 图 。 
(2) 根据 上 述 的 图 形 ， 猜 测 w 的 极限 是 多 少 。 证 明 你 的 结论 。 
2.1.2 ”数列 极限 与 生长 模型 
在 生物 学 中 ， 有 一 个 刻画 生物 群体 中 的 个 体 总 量 增长 情况 的 著名 方程 一 一 Logistic 方程 ， 
Pn =kP(-P) (2-3) 
其 中 尸 为 某 一 生物 群体 的 第 壮 代 的 个 体 总 量 与 该 群体 所 能 达到 的 最 大 个 体 总 量 之 比 , 0< PP 志 
- lz=012…)， 大 为 比例 系数 。 


给 定 初 值 和 比例 系数 的 值 后 ， 由 方程 (2-3〉 就 能 生成 一 个 数列 ， 
P,P,P,…,P,,.… 
生物 学 家 为 了 预测 群体 总 量 的 变化 情况 ， 就 要 研究 这 个 数列 ， 他 们 感 兴趣 的 问题 是 : 这 个 数列 
存在 极限 吗 ? 数列 中 的 项 会 出 现 周 期 性 的 变化 情况 吗 ? 数列 会 不 会 呈现 无 法 预测 的 率 乱 情 
况 ? | 
下 面 我 们 来 考察 数列 P 的 不 同 变化 情况 ， 从 而 对 数列 的 不 同 变化 趋势 获得 较为 生动 的 感性 
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认识 ， 加 深 对 数列 极限 的 理解 。 
实验 6 令 只 =0.5 取 1 和 3 之 间 的 两 个 不 同 的 值 ， 观 察 数列 的 变化 趋势 。 
解 : 不 妨 设 且 1.5 和 k=2.5， 所 得 结果 如 图 2-5。 


0.3355 0.6000015 
0.335 0.600001 ， 
0.3345 0.6 梁祝 人 
5。10 1 20 25 30 本 
. 10 20 30 40 50 


图 2.5 ( 左 图 上 =1.5， 右 图 上 = 2.5 ) 

这 两 个 数列 看 起 来 都 是 收敛 的 ， 这 表明 :种群 中 的 个 体 总 量 将 趋 于 一 个 稳定 值 。 
练习 9 在 (0,D) 内 任意 选 一 个 PB,* 值 不 变 ， 观 察 数列 的 变化 趋势 。 
练习 10 根据 观察 所 得 的 结果 , 数列 极限 是 否 依赖 于 Po 所 取 的 值 ? 又 是 否 依赖 于 天 所 取 的 值 ? 
并 尝试 从 理论 上 解释 ， 当 1<k<3 时 ， 由 (2-3) 式 能 生成 收敛 数列 。 
实验 7 令 Pp=0.5,k 取 3 和 3.4 之 间 的 值 ， 观察 数列 的 变化 趋势 。 
解 : 所 得 结果 如 图 2-6。 

为 了 更 清楚 地 显示 数列 的 变化 情况 ， 我 们 将 上 面 的 点 用 折线 连接 起 来 ， 结 果 如 图 2-7。 可 
见 这 时 数列 不 收敛 ， 而 出 现 周期 性 的 波动 ， 数 列 的 项 交替 取 两 个 不 同 的 值 。 


PP a 
8| | a 
| ln 

0.7 | 中 | 
上 

0.6 | || | 1 
oI Hl 
5. :10. 45 .20. 25 ,30 计 i 

图 2-6 图 2-7 


实验 8 再 令 k 取 3.4 和 3.5 之 间 的 值 ， 观 察 数列 的 变化 趋势 。 
解 ， 所 得 结果 如 图 2-8。 


A ee 0 . 8 | 
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机 中 


20 4 和 80 100 


2-8 


可 见 ， 这 时 数列 仍 出 现 周期 性 波动 的 情况 ， 但 所 取 到 不 同 值 个 数 明显 增加 。 
实验 9 邻 k 取 3.6 和 4 之 间 的 值 ， 观 察 数列 的 变化 趋势 。 
解 ， 所 得 结果 如 图 2-9。 
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图 2.9 

可 见 这 时 数列 的 变化 趋势 变 得 很 闲 乱 。 这 里 特别 指出 一 种 值得 注意 的 现象 ， 若 给 Po 值 一 
个 微小 的 变动 ， 例 如 增 减 0.001， 那 么 数列 后 面 的 项 将 会 出 现 很 大 的 变动 ， 这 种 现象 在 数学 上 
被 称 为 “混沌 六 在 后 面 的 实验 〈 实 验 三 十 三 ) 中 ， 我 们 将 要 做 进一步 的 讨论 。 在 某 些 特定 条 
件 下 ， 昆 虫 种 群 的 成 长 情况 就 会 出 现 这 种 难以 预测 的 混沌 现象 。 
实验 10 当 k=3.8 时 ， 给 定 忆 以 0.001 的 增加 量 ， 即 尺 =0.501， 观 察 数列 的 变化 趋势 。 
解 ， 所 得 结果 如 图 2-10。 
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图 2-10 

将 图 2-9 与 图 2-10 比较 , 可 见 两 者 有 明显 差别 , 特别 是 在 ne (80,90) 之 间 ， 两 者 之 间 的 差 
别 非常 大 。 我们 指出 ， 出 现 这 种 差别 的 部 分 原因 是 由 于 计算 过 程 中 舍 入 误差 的 不 断 积 累 。 因 此 
在 不 同 的 精度 下 进行 计算 ， 所 得 出 的 图 形 会 有 所 不 同 。 通 过 观察 图 2-10， 我 们 发 现 随 着 大 值 
的 增加 ， 数列 中 的 项 所 取 到 的 值 变 得 更 加 分 散 ， 且 有 更 多 的 项 取得 接近 于 0 或 1 的 极端 值 ， 从 
而 出 现 了 混沌 现象 。 
练习 11 取 只 =0.499， 观 察 数列 的 变化 趋势 。 
练习 12 在 区 间 (1,3) 和 (3,4) 内 取 大 的 其 它 值 ， 在 (0,1) 内 取 Po 其 它 值 ， 重 复 以 上 的 实验 。 


2.2 ”函数 的 极限 


在 2.1 中 ， 我 们 研究 了 数列 的 变化 趋势 ， 从 而 更 直观 地 理解 了 数列 的 极限 的 概念 。 对 于 函 
数 的 极限 ， 我 们 也 可 以 利用 类 似 的 方程 来 加 以 理解 。 


3 
要 二 出 在 区 问 [-44] 上 作出 函数 /(x) = 三 ;一世 的 图 形 ， 并 研究 lim / (区 和 iim /GD 。 


解 ， 输入 以 下 Mathematica 语句 ，f (x) 的 图 形 如 图 2-11。 
Clear[{];f[x_] = (x^3 - 9x)/(x 人 3 - x);Plot[f[x], {x, -4, 4}]; 


从 图 2-11 中 ， 我 们 可 以 猜测 lim f(x) =9,lim f(x) 不 存在 。 


13: 


观察 函数 f(x) = 二 sinx 当 x 二 + 时 的 变化 趋势。 


解 : 取 一 个 较 小 的 区 间 [1,10]， 输 入 以 下 Mathematica 语句 ， 作 出 了 (在 这 一 区 间 上 的 图 形 如 
图 2-12。 
f[x_] = Sin[x]/x^2;Plot[f[x]}, {x, 1, 20}}; 


图 2-11 图 2-12 


从 图 2-12 中 可 以 看 出 图 形 逐 渐 趋 于 0。 事 实 上 ， 逐 次 取 更 大 的 区 间 ， 可 以 更 有 力 地 说 明 
当 x 一 +ee 时， 一 0。 


动画 : 分 别 取 区 间 [10,15],[10,20],…,[10,100] 画 出 函数 的 图 形 ， 输 入 以 下 语句 : 
i=3; 
While[i <= 20, Plot[f[x], {x, 10, S*i}, PlotRange -> {{10, 100}, {-0.008, 0.004}}]; i++] 

运行 后 ,得 17 幅 图 ， 点 黑 右边 的 线 框 ， 并 选择 从 前 向 后 的 播放 方式 播放 这 些 图 形 ， 可 
得 函数 7(D = 五 szx 一 号 时 变化 趋势 的 动画 ， 从 而 可 以 更 好 地 理解 此 时 函数 的 变化 趋 
势 。 
练习 13 作出 函数 =|1+ 二 | (<x<100) 的 图 形 ， 观 察 当 x -+ 时 y 的 变化 趋势 ， 并 求 


出 极限 im 1+ | , 
练习 14 作出 函数 (x)= 于 的 图 形 ， 信 计 im 7 


”练习 15 作出 函数 g(x) =sin 的 图 形 , 在 区 域 [-1,1]x[-1,1] 内 观察 当 x 一 0 时 , g (x) 的 变化 趋 


势 。 
练习 16 作出 函数 y=xcosx 的 图 形 ， 观 察 y=xcosx 在 (-e,+eo) 内 是 否 有 界 。 当 Xx 一。 时 
这 个 函数 是 否 为 无 穷 大 ? 并 证 明 你 的 结论 。 
练习 17 分别 作出 函数 F(z) = 如 和 8C)=Inx 的 图 形 , 观察 f(x) 与 g(x) 的 关系 。 进一步 作出 
函数 及 x) = g(x)/ 了 (x) 的 图 形 , 观察 x 一 +e 时 ，h(x) 的 变化 趋势 , 并 确定 正 数 贸 ， 当 x> 久 时 ， 
h(x) <0.1。 

下 面 我 们 将 以 直观 的 和 数值 的 两 种 方式 相 结 合 来 进一步 理解 函数 极限 的 概念 。 
设 f(x)= 必 -5x+6,4a=1， 我 们 已 知 L=limf(x)=2， 试 对 于 给 出 的 各 个 
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2 =0.2,0.1，0.05,0.01 ， 求 出 相应 的 56 ， 使 得 当 |r-qj<6 时 ， 总 有 |f(x)-d<e。 
解 : 选取 函数 的 观察 区 域 为 [ 乓 ,z]x[, 交 ] ,包含 点 (ce 工 )= (2) ,输入 以 下 Mathematica 语句 ， 


得 到 结果 如 图 2-13。 
Clear[f, e, xl x2, yl1, y2, x, y, L, al;flx_] =x^3-$Sx+6;a=1.;L :=2; 
e=0.2; x1 =a-2*e; x2 =a+2*e; yl =L -2*e; y2 =L +2*e; 
g = Plot[{f[x], L, L - e, L + e}, {x, x1, x2}, PlotRange -> {y1, y2), 
AxesLabel -> {"'x", "y"'}]; 
rxl2 = FindRoot[f[x] == L - @, {x, {a, Xx2}}]; xx12 = x /. rx12; 
rx21 = FindRoot[f[x] == L + e, {x, {x1, a}}]; xx21 = x /. rx21; 
d12 = xxl2 - a; d21 = a - xx21; dd = If[dl2 < d21, d12, d21]; 
xXxl1 = a- dd; xx2 = a + dd; 
ghl = ParametricPlot[{x = xxl, y = tj, {t, yl y2), DisplayFunction -> Identity]; 
gh2 = ParametricPlot[{x = xx2, y = t}, {t, yl y2}, DisplayFunction -> Identity]; 
Show[g, ghl, gh2, DisplayFunction -> $DisplayFunction]; 
XX = {e, dd, xxl, xx2} 


图 2-13 
练习 18 ” 换 一 个 函数 (x) 或 改变 e 值 ， 重 复 实验 13。 


2.3 ”函数 极限 与 数列 极限 的 关系 


数列 极限 为 函数 极限 的 特例 。 即 : 当 函 数 的 自 变 量 按 如 下 方式 取 值 时 , 均 可 对 应 为 数列 的 
极限 ( 设 函 数 极限 的 趋向 过 程 为 x -> % )。 

(1) 自 变量 简单 取 值 为 n， 则 了 (n) 为 一 数列 ， 

(2) 自 变量 取 值 为 g(n)， 且 g(n) 满足 limg(n)= (车 趋向 过 程 为 x -为 时 ， 应 满足 
lim g(n) =% ), 则 f(g(nm)) 为 一 数列 。 

总 之 ， 当 自 变 量 取 趋 向 过 程 中 的 一 个 子 列 时 ， 可 以 得 到 函数 值 的 一 个 相应 子 列 。 


考察 函数 极限 im sinz 与 数列 nsin 上 ,Vasin- 二 ,了 2sin 了! 极限 间 的 关系 。 
0 x n Vnntl x 

解 : 输入 以 下 Mathematica 语句 ， 我 们 将 函数 图 形 与 其 子 列 的 图 形 加 以 对 照 如 图 2-14。 

Clear[f, gl;f[x_] := Sin[xl/x;tt = Table[{ LU/n, nxSinfln]}, {n, -30, 30]]; 

t2 = Table[{ln, Sqrt[nj*Sin[L/Sqrt[n]]}, {n, 1, 30]]; 

t3 = Table[{ln, n^2/o + 1)*Sin[(n + D/n^2]), {n, -30, 30}]; 
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gtl = ListPlot[tl, PlotStyle -> PointSize[0.02], DisplayFunction -> Identity]; 
gt2 = ListPlot[t2, PlotStyle -> PointSize[0.02], DisplayFunction -> Identity]; 
gt = ListPlot[t2, PlotStyle -> PointSize[0.02], DisplayFunction -> Identity]; 
g = Plot[f{x], {x, -1, 1}, PlotStyle -> RGBColor[], 0, 0], DisplayFunction -> Identity]; 


Show[g, gtl, DisplayFunction -> $DisplayFunction]; 
Show[g, gt2, DisplayFunction -> $DisplayFunction]; 
Show[g, gt3, DisplayFunction -> $DisplayFunction}]; 


2 
图 214 《从 左 至 右 依次 为 子 列 nsin，Visin 了 了 ，- sn Se 
n Vn n+l 


可 以 看 出 子 列 图 形 只 是 函数 图 形 上 的 一 部 分 组 成 。 


对 于 以 下 几 个 数列 ; 
OR dst oz- (x = 
n 31 +n+l n 2 


容易 知道 , 当 疡 一 o 时 , 前 3 个 数列 的 极限 存在 ， 且 分 别 为 0， 3， e， 第 4 个 数列 的 极限 不 存在 。 
下 面 我 们 考察 另外 一 种 与 它们 对 应 的 数列 ， 其 形式 为 : ， 其 中 p 为 任意 确定 的 


Vtp — Xn 


正 整 数 。 


令 忆 =1， 分 别 观察 数列 (1)，(2)，(3)，(4) 所 对 应 的 数列 |x 


解 ， 输入 以 下 Mathematica 语句 ， 所 得 的 结果 如 图 2-15。 

Clear[p, t1, t2, t3, t4];p = 了 

tl = Table[Abs[(2 + (-D^(n + p)/n + Pp)- (2 + C1)n)/n), {n, 1, 100}]; 

t2 = Tablef Abs[(S*(n + p)^2+ 2)/(3*(n + p) 2+n+p+1)-(S*n^2+2)/(3*n^2+ 
n+ 1)], {n, 1, 100]]; 

t3= Table[Absi(l + LU/(n + p)’^(n + p)- (1 + Un)’nl, {n, 1, 100]]; 

t4= Table[Abs[(n + p)V2^n + p) - n!/2^n], {n, 1, 100}]; 

ListPlot[t1, PlotStyle -> PointSize[0.015]];ListPlot[t2, PlotStyle -> PointSize[0.015]]; 

ListPlot[t3, PlotStyle -> PointSize[0.015]];ListPlot[t4, PlotStyle -> PointSize[0.015]]; 


Xnrp 一 
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图 2-15 《数列 (1) ， (2) ， (3) ，〈4) 的 变化 趋势 ) 


76 


的 极限 为 0， 而 第 4 个 数列 对 应 的 


从 图 2-15 可 以 看 出 ， 前 三 个 数列 对 应 的 数列 
yp 一 为 | 值 越 来 越 大 。 


练习 19 分 别 令 p =3,7,10,20,50,100， 重 复 实验 15， 你 能 得 到 什么 结论 ? 请 证 明之 。 


2.4 ”收敛 速度 与 无 穷 小 的 阶 
设 lim mm =a ， 称 数列 接近 其 极限 a 的 快慢 程度 为 的 收敛 速度 。 在 进行 科学 计算 时 ， 


收敛 速度 对 计算 效率 有 着 十 分 重要 的 意义 。 
观察 以 下 数列 的 变化 趋势 ， 并 给 出 满足 |z -a|<10” 时 最 小 的 n〔 其 中 lim%, =a )。 


Xntp 一 加 


Ooi Wh Wo Wo-in Ho- 
解 ， 输入 以 下 Mathematica 语句 ， 分 别 作出 数列 的 散 点 图 如 图 2-16。 
Clear[ta, tb, tc, td, te];ta = Table[ln, {n, 1, 1000}];tb = Table[L/n 人 3, {n, 1, 100}]; 
tc = Table[110^n, {n, 1, 100}];td = Table[VLog[n], {n, 2, 100]]; 
te = Table[1/10^(3^n), {n, 1, 5}];ListPlot[ta, PlotStyle -> PointSize[0.015]]; 
ListPlot[tb, PlotStyle -> PointSize[0.015]];ListPlot[te, PlotStyle -> PointSize[0.015]]; 
ListPlot[td, PlotStyle -> PointSize[0.015]]; ListPlot[te, PlotStyle -> PointSize[0.015]]; 
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图 2-16 


对 于 a,,n=1001;b,,n=36,,n = 人 $d,,n=10” +1;6,,n=2 时， 它们 满足 |x, -a|<10”。 
由 以 上 结果 ,我 们 看 到 , 为 了 达到 相同 的 精度 要 求 ， 计 算 速 度 的 差别 非常 大 ， 以 上 数列 的 
收敛 速度 有 以 下 关系 : d, <a, <b, <c,<e,。 
练习 20 ”对 于 如 何 衡量 收敛 速度 ， 提 出 你 的 结论 。 
”观察 以 下 函数 当 x -> 0 时 的 变化 趋势 ， 并 应 用 你 所 学 的 知识 给 予 合理 的 解释 。 
17 


(DxS2x (2) sinx 与 xf (3)l-cos2xS5x: (4) tanx 一 sinx 与 六 

解 ， 输入 以 下 Mathematica 语句 ， 分 别 作出 它们 的 图 形 如 图 2-17。 
Plot[{x^2, 2x}, {x, -0.1, 0.1}, PlotStyle -> {RGBColor[], 0, 0], RGBColor[0, 0, 1]}]; 
Plot[{Sin{x], x}, {x, -1, 1}, PlotStyle -> {RGBColor[], 0, 0], RGBColor{0, 0, 1]}]; 
Plot[{1 - Cos[2*x], x^2}, {x, -0.1, 0.1}, 

PlotStyle -> {RGBColor[]1, 0, 0], RGBColor[0, 0, 1]}]; 
Plot[{ Tan[x] - Sin[x], x^3}, {x, -0.1, 0.1}, 

PlotStyle -> {RGBColor[], 0, 0], RGBColor[0, 0, 1]}]; 


图 2-17 


和 
(D) 于 =0, 即 六 =o(2 区 ,从 图 形 可 以 看 出 局 趋 于 0 的 速度 比 2x 快 。 


— 


(2 


Se 


lim sz -1 即 sinx~x， 从 图 形 可 以 看 出 sinx 趋 于 0 的 速度 基本 上 与 x 一 致 。 
ZX 一 0 x 


G) lm 即 1-cos2x=O(x ), 从 图 形 可 以 看 出 1-cos2x 趋 于 0 的 速度 基本 上 


x—0 


与 ?一 致 ， 但 比 x 快 。 
(4) lim 即 tanx-sinz=O(2) ， 从 图 形 可 以 看 出 tanx-sinx 趋 于 0 的 速度 
ZX 一 0 x 
基本 上 与 一致， 但 比 x 快 。 
练习 21 观察 以 下 函数 当 x 一 0 时 的 变化 趋势 ， 并 对 它们 的 收敛 速度 进行 比较 。 


(1) x,sin x,tan x,arcsin x,arctan x,In(l] + x),e” —1 


(2) 1- cosx 与 5 
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3 观察 e* 与 x" 的 变化 趋势 。 oe 
解 : 输入 以 下 Mathematica 语句 ， 作 出 函数 的 图 形 如 图 2-18。 30000 
Plot[{E^x, x^10}, {x, -1, 10}, PlotStyle -> {RGBColor[1, 0, 0]， ?oo 


由 (3) (1+x) -1 与 1-ax 可 | 


RGBColor[0, 0, 1]}]; ey nt 
练习 22 观察 ez 与 如 (n 由 你 给 定 ) 的 变化 趋势 ， 并 给 出 你 的 结 图 2-18 


论 。 


附 ”实验 6 一 实验 10” Mathematica 程序 

flx_] := k*x*(1 - x);p[0] = 0.5; p[t_] := 和 p[t - 1]]; 

k = 1.5; data = Table[p[il, {i, 30}];ListPlot[data, PlotStyle -> PointSize[0.015]]; 

k = 2.5; data = Table[pfil, {i, 50}];ListPlot[data, PlotStyle -> PointSize[0.01S]]; 

k = 3.35; data = Table[p[il, {i, 30}];gl1 = ListPlot[data, PlotStyle -> PointSize[0.02]]; 
22 = ListPlot[data, PlotJoined -> Truel;Show[g], g2]; 

k = 3.45; data = Table[p[i], {i, 100}];gl = ListPlot[data, PlotStyle -> PointSize[0.02]]; 
g2 = ListPlot[data, PlotJoined -> Truel;Show[g], g2]; 

k = 3.8; data = Table[pfil, {i, 100}];gl1 = ListPlot[data, PlotStyle -> PointSize[0.015]]; 
8g2 = ListPlot[data, PlotJoined -> Truel;Show[GraphicsArray[{gl g2}]];Show[g], g2]; 
k = 3.8; p[0] = 0.5 + 0.001; data = Table[p[i, {i, 100}]; 

g1 = ListPlot[data, PlotStyle -> PointSize[0.01S]]; 

22 = ListPlot[data, PlotJoined -> True];Show[GraphicsArray[{gl, g2}]];Show[gl, g2]; 
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实验 二 困 数 的 连续 与 间断 


本 实验 的 目的 是 进一步 理解 函数 连续 的 概念 ， 熟 悉 几 种 间断 点 的 类 型 与 间断 点 的 图 形 特 
征 ， 以 及 一 元 连续 函数 的 零点 定理 和 求 方程 根 的 二 分 法 。 


3.1 一 元 函数 连续 的 概念 
函数 在 某 一 点 连续 就 是 在 这 一 点 处 函数 的 极限 存在 且 等 于 函数 在 该 点 的 函数 值 。 即 : 函数 
在 该 点 应 有 定义 ， lim 7 Co) 与 lim f(x) 存在 且 相等 ， 并 等 于 函数 在 点 鸭 的 定义 值 fCo) 。 
连续 也 即 对 所 有 的 数列 x ， 只 要 太一 为 ， 就 有 (x) 一 (%0)。 
| 考察 函数 f(x) =sinx 在 x=5 处 的 连续 性 。 


解 : 选取 几 个 {x,}， 考察 当 加 一 5 时 ， sin x, 的 变化 趋势 ， 依次 取 尺 , =5+ ; X, =5+CD' 元 ， 
n 


sa ， 当 no 时， 它们 的 极限 均 为 5， 输 入 以 下 Mathematica 语句 ， 作 出 相应 的 


(xsinz ) 的 散 点 图 如 图 3-1。 
gl1 =ListPlot[Table[Sin[S + 1/n], {n, 1, 1000, $5}], PlotStyle -> RGBColor[1, 0, 0]]; 
g2 =ListPlot[Table[Sin[S + (-D^n/Sqrtfn]], {n, 1, 1000, 5}], 
PlotStyle -> RGBColor[0, 1, 0]]; 
g3 = ListPlot[Table[Sin[S*n*Log[(1 + 1/n)]], {n, 1 1000, 5}], 
PlotStyle -> RGBColor[0, 0,1]; 
g= Show[gl, g2, 83]; 


由 图 3-1 可 看 出 它们 趋 于 同一 极限 值 。 

实验 1 表明 : 连续 ， 即 对 所 有 的 数列 {x}， 只 要 一 如， 就 有 jx ) 一 Foo) 。 
练习 1 任意 选取 另外 一 个 函数 ， 重 复 实验 1 的 内 容 。 
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令 f(x)=sinx, 若 lim = 验证 im f(%,)= /4 | 


解 : 输入 以 下 Mathematica 语句 ， 作 出 点 列 散 点 图 如 图 3-2。 
Clear[f, grf, Lx0, Ly0, Lxy, X, X0, Y, y0, Y0, XY]; ffx_ = Sin[x]; 
X = Table[N[Pi]/4 - 2.0^(-p), {p, 1, 15}]; Y = Sin[X]; 
X0 = Transpose[{X, 0 X}]; Y0 = Transpose[{0 Y, Y}]; XY = Transpose[l{X, Y}]; 
Lx0 = ListPlot(X0, DisplayFunction -> Identity]; 
Ly0 = ListPlot[Y0, DisplayFunction -> Identity]; 
Lxy = ListPlot[XY, DisplayFunction -> Identity]; Print["y = "", f{x]]; 
grf = Plot[ffx], {x, 0, 0.8}, PlotStyle -> RGBCoior[1, 0, 0], 
PlotRange -> {{0, 0.8}, {0, 1.05}}, DisplayFunction -> Identity]; 
Show[grf, Lx0, Ly0, Lxy, PlotRange -> {{0, 0.8}, {0, 0.72}}, 
Prolog -> {PointSize[0.02]}, Ticks -> {Range[0, 1, 0.1], Range[0, 1, 0.1]), 
DisplayFunction -> $DisplayFunction]; 


O01 02 03 0 05 60 
图 3-2 
练习 2 令 f(%)=e', 若 limx,=0， 验证 jimf(x,)=f(0)=1。 
练习 3 任意 选取 一 个 连续 函数 ， 重 复 实验 2 的 内 容 。 
3.2 不 同类 型 间断 点 的 图 形 特征 
下 面 将 说 明 各 种 不 同类 型 间断 点 的 图 形 特征 。 
实验 3 函数 /() = 在 x=0 点 处 间断 , 且 间 断 点 为 可 去 间 -53 5 


解 : 取 x=0 附近 的 一 个 较 小 区 间 ， 如 [-0.20. ， 输 入 以 下 
Mathematica 语句 ， 作 出 y= f(x) 的 图 形 如 图 3-3。 
Plot[Sin[x]/x, {x, -0.1, 0.1}]; 


断 点 ， 请 观察 其 图 形 特征 。 


练习 4 试 解释 你 所 看 到 的 结果 ， 若 将 区 间 换 为 [0,0.1] 又 会 出 现 > 

什么 结果 ? 

ee 1 ,xX>0 

实验 4 (跳跃 间断 点 ) snes- ,x=0 在 x=0 点 处 的 间断 情况 。 
-1 ,x<0 
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解 : 输入 以 下 Mathematica 语句 ， 作 出 sgn(x) 的 图 形 如 图 3-4。 
flx_] := Whichfx > 0, 1, x < 0, -1, x == 0, 0];Plot[f{x], {x, -1, 1}]; 
由 图 3-4 可 见 ， 在 x=0 点 处 函数 的 图 形 由 一 1 一 直路 为 +1。 


练习 5 于 家教 1(9 = > 的 图 开征 ， 并 庆 断 在 点 = 0 处 的 间 晰 训 类 型 
xX ,xX 
实验 5 (无 穷 间断 点 ) 考察 函数 了 (x) = secx， 在 区 间 [0,2x] 上 作出 f(w)=secx 的 图 形 。 
解 ， 输入 以 下 Mathematica 语句 ， 在 区 间 [0,2x] 作 出 f(x) 的 图 形 如 图 3-5。 
PlotfSec[x], {x, -2*Pi, 2*Pi}]; 
图 3-5 中 出 现 的 两 条 竖 线 为 图 形 的 两 条 铅 直 渐 近 线 。 


人 1 “| 到 于 
0 5| | 也 | 
| | \5 \ 
| E44 WW 于 7 i NS 
十 -0.5 | 0.5 Et -6 J 3 | 2 \ 6 
-0.5 | | 各 | | 
|= | 
3-4 3-5 


练习 6 观察 函数 f(x)=e :的 图 形 特征 ， 并 指出 点 x=0 处 的 间断 点 类 型 。 
实验 6 (振荡 间断 点 ) 考察 函数 fo = sin 在 点 x= 0 处 的 连续 性 。 
解 ， 选取 x = 0 附近 的 一 个 小 区 间 [-0.1,0.1]， 输 入 以 下 Mathematica 语句 ， 作 出 函数 的 图 形 如 
3-6。 , 
PlotfSin[1/x], {x, -1, 1}]; Plot[Sin[1/x], {x, -0.01, 0.01}]; 
由 图 3-6 可 看 出 ， 在 x=0 点 附近 函数 波动 线 极为 密集 。 事 实 上， 再 取 更 小 的 区 间 如 


练习 7 观察 函数 /CD = cos 一 的 图 形 特征 ， 并 指出 x= ! 点 的 间断 点 类 型 。 
3.3 “二 分 法 求 根 
设 f(X) 在 区 间 [a,b] 上 连续 ，f(a). f(b)<0， 生 方程 f(x)=0 在 (a,b) 内 仅 有 一 个 实 根 & ， 
这 时 我 们 就 以 [e,5] 作 为 隔离 区 间 。 首先 取 [a,6] 的 中 点 ， 志 = 全 ,计算 fn) 。 
(1) 如 果 f(x)=0， 则 x = 即 为 所 求 ， 
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(2) 如 果 f(x)z0 且 与 (5) 异 号 ， 即 f(x%):f(b)<0, 则 取 a =x,b=b; 

(3) 如 果 f(m)z0 且 与 f(a) 异 号 ， 即 f(x):f(a)<0, 则 取 a =a,b=%。 

然后 ， 我 们 再 以 [a,,h ] 为 隔离 区 间 ， 取 为 = 后 ， 若 04)=0， 则 思 = 和 即 为 所 求 : 车 
当 f(x,)z0 时 ， 则 重复 上 述 (2)、(3) 的 做 法 ， 以 元 为 隔离 区 间 [a,,5b, | 的 一 个 端点 ， 继 续 下 
去 ， 如 此 过 程 重复 次 ， 可 得 隔离 区 间 [a,,b,]，b ,= 汉 )。 若 以 a 或 或 它们 的 中 


a,+b, 


: 作为 根 的 近似 值 ， 则 其 误差 小 于 去 (一) 。 
现在 把 以 上 的 计算 程序 介绍 如 下 : 


点 


ffx_] := 表达 式 ; 
a0 = 值 ; b0 = 值 ; delta = 值 ; k0 = 值 ; a = a0; b = b0; 
Dof[x = (a + b)/2; Print[X]; 
HIfIx] == 0, Break[], IfIfTx]*fIb] < 0, a = x, b = x]]; 
IfIAbs[b - a] < delta, Break[], Ifk == k0, Print[ 失 败 ]]], {k, KO}] 
如 果 精 度 要 求 很 高 ， 则 在 取 初 值 ao,bo 要 有 相应 的 精度 ， 或 用 整数 或 整数 之 商 表 示 ， 关 于 
方程 求 根 问题 将 在 实验 二 十 四 中 作 进 一 步 讨论 。 : 
在 区 间 (1,2) 内 求 方程 f(x) =4x* -6x*+3x 一 2=0 的 根 ， 要 求 精度 为 eps=10?4。 
解 : 将 以 上 程序 稍 作 修改 ， 用 二 分 法 计算 的 结果 为 x=1.2211 。 
练习 8 为 了 在 海岛 了 与 某 城市 C 之 间 铺 设 一 条 地 下 光缆 , 每 千 米 光缆 的 铺设 成 本 在 水 下 部 分 
是 ， 在 地 下 部 分 是 cv ， 为 使 得 铺设 该 光缆 的 总 成 本 最 低 ， 光 缆 的 转折 点 P (海岸 上 一 点 ) 应 


该 取 在 何 处 ? 《误差 小 于 10” km ) 
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实验 四 ”一 元 消 数 微分 学 


本 实验 的 目的 是 ， 进 一 步 理解 导数 的 概念 及 其 几何 意义 ， 从 几何 上 直观 理解 微分 中 值 定 
理 ， 进 一 步 掌 握 泰 勒 展开 与 函数 逼近 的 思想 ， 了 解 导 数 的 应 用 。 


4.1 导数 的 几何 意义 
本 节 我 们 将 从 几何 、 分 析 和 数值 的 角度 来 阐述 导数 的 概念 。 
4.1.1 导数 为 一 极限 值 


1. 从 数值 的 角度 
导数 是 函数 增 量 f(x+ An) - F(x) 与 引起 这 个 增 量 的 自 变 量 增 量 Ax 的 比值 当 Ax 一 0 时 的 
极限 。 
实验 1 考察 函数 /(x) =e’ 在 =0 处 的 导数 。 
解 : 记 h=Ax ， 并 取 有 逐渐 变 小 时 的 一 些 不 同 值 ， 如 ，h=1.0,0.1,0.01，0.001,0.0001 ， 
0.00001,0.000001 计 算 所 得 比值 。 输 入 以 下 Mathematica 语句 : 
f{x_] := Exp[x]; d2 = 0; d1 = 1.; error = 0.000001; x0 = 0; i = 0; m = Lerror; 
Whije[Abs{d2 - d1] > error, h = 1/10^i; d2 = dl; 
d1 = N[(f[x0 + h] - 人 fx0]Xyh, 20]; i =i+ 1; Printf"h= “", N[h]," 增 量 比 ", d1]] 


观察 比较 所 得 的 结果 ， 可 知 极限 jiny 名 + 一 人 6) =1= Ga) 。 


练习 1 考察 函数 fo = 她 在 如 =1 处 的 导数 。 

2. 从 左 、 右 极限 的 角度 

我 们 也 可 以 利用 Mathematica 直接 求 增 量 比 的 极限 来 考察 可 导 性 。 
实验 2 利用 左 、 右 极限 考察 函数 f(x) =e” 的 增 量 比 的 左右 导数 。 

A 和 癌 4 坝 -fa 

解 : 输入 以 下 Mathematica 语句 : 
Cjear[a, h] ;f{x_] = Exp[x]; Limit[(ffh] - f[O])/h, h -> 0, Direction -> +1] 
Limit[(fTh] - f[OD/h, h -> 0, Direction -> -1] 

由 计算 结果 可 得 左 、 右 极限 存在 且 相 等 为 1， 表明 导 数 


f(x%)= a eh 要 A - Ts 


练习 2 ”考察 函数 f(x)=5’ 在 =1 处 的 导数 。 
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3. 从 图 形 的 角度 
我 们 还 可 以 取 有 逐渐 变 小 时 的 一 些 不 同 值 ， 并 将 所 计算 得 到 的 各 相应 增 量 比 制 成 一 个 表 ， 
并 画 出 表 中 数据 的 散 点 图 ， 从 图 形 上 直接 观察 增 量 比 的 变化 趋势 。 
芯 验 3 考察 函数 f(x) =er 在 六 =0 处 的 导数 。 
解 ， 令 Ax=h= 二 (i=1,2,…,50) ， 作 函数 值 组 成 的 表 ， 并 夯 出 其 散 点 图 如 图 4-1， 输 入 以 下 


Mathematica 语句 : 
ftx_] = Exp[x];;x0 = 0; 亿 = Table[(fTx0 + 1/i^2] - f[x0])*i^2, {i, SO0}] // N; 
f2 = Table[(-f[x0 - 1/i^2] + f{[x0])*i^2, {i, SO}] // N; 
pl = ListPlot[f1, DisplayFunction -> Identity]; 
p2 = ListPlot[f2, DisplayFunction -> Identity]; 
Show[pl, p2, DisplayFunction -> $DisplayFunction]; 
从 图 形 可 以 看 出 i 逐渐 变 大 ( 即 h 一 0 时 ), 增 量 比 逐 渐 接 近 于 1。 此 外 ,输入 Mathematica 
语句 ，Plot[(f[h] - fT0D/h, {h, -0.01, 0.01H]; 所 得 图 形 如 图 4-2。 


观察 所 得 图 形 ， 在 三 =0 点 附近 的 情况 ,可知 0 时 ， 荆 各 + 人 一 f09) -1 


1.006 1.004 | 
1.004 1.002 
L102) i 
一 0.01 -0.00 一 | 0.005 0.01 
0.998 | 了 .0.998. 
a 区 
on 0.996 
图 4-1 图 4-2 


练习 3 考察 函数 f(x)=In(1+xx) 在 为 =0 处 的 导数 。 


4.1.2 ”导数 的 几何 意义 


”下面 将 以 图 形 的 方式 考察 函数 的 图 形 及 其 在 某 点 处 的 切线 、 割 线 三 者 之 间 的 关系 。 
实验 4 考察 函数 /(x)=x* + 在 加 =1.5 处 函数 图 形 及 在 该 点 处 的 切线 、 割 线 三 者 之 间 的 关 
系 。 

解 : 过 点 (%,f(%)) 的 割 线 方程 为 y= f(x et -六 ) ， 切线 方程 为 


y=f(%0)+ 了 (加)(x 一 有 0)。 取 h=1， 将 了 f(x) 以 及 f(x) 在 点 加 =1.5 处 的 制 线 和 切线 的 图 形 画 
在 同一 图 形 中 ， 并 分 别 取 越 来 越 小 的 及 ， 比 如 取 有 =0.8,0.4,0.2,0.1,0.01,0.001 观 察 其 执行 结果 ， 
并 加 以 比较 ， 可知 割 线 趋 向 于 切线 ， 且 当 hh 越 来 越 小 时 ， 割 线 与 切线 逐渐 重合 ， 即 割 线 的 极限 
位 置 为 切线 位 置 , 也 即 割 线 斜率 ( 即 增 量 比 或 平均 变化 率 ) 的 极限 (导数) 为 切线 斜率 。 因 此 ， 
函数 在 某 点 处 的 导数 是 函数 在 这 一 点 处 的 瞬时 变化 率 。 

我 们 还 可 以 输入 以 下 Mathematica 语句 画 出 上 述 图 形 (部 分 图 形 如 图 4-3)， 实 现 动态 
比较 。 
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ffTx_] := XA4 + x^2; 
For[i = 1,i <= 200, i *= 1.2, h = Li; 
Plot[{f{x], f{[1.5] + f'[1.S]*(x - 1.5), f{1.5] + (ft1.S + h] - f[1.5])/h*(x - 1.5)}, {x, 1, 3}, 
AspectRatio -> 1, PlotRange -> {{1, 3}, {0, 60}}, PlotStyle -> 
{RGBColor[], 0, 0], RGBCoior[0, 1, 0], RGBColor[0, 0, 11}]; 


印 0 多 
Ea Ey 50 
各 看 40 
30 30 30 
20 20 20 
1 10 10 


图 4-3 
练习 4 考察 函数 f(x)=x*+2x+5 在 =2 处 的 函数 图 形 、 切线 、 割 线 的 关系 。 
练习 5 观察 函 数 . fCD) = rsin 荆 的 图 形 ， 并 计算 7 给 出 你 的 结论 。 


.1 
练习 6 对 于 函数 /加 = js 地， 
0 ，x=0 
(1) 画 出 函数 f(x) 的 图 形 ; 
(2) 研究 “(0) 并 证 明 你 的 结论 ; 


:ol 
G3) 画 出 函数 FoD = zs ， < 过 0 的 图 形 ， 并 研究 11(0); 


0 ， X=0 
i x#0 
(4) 画 出 函数 f(x)= x ”” 的 图 形 ， 并 研究 f"(0); 
0 ， X=0 
而 *0 
(5) 任 给 一 个 n， 画 出 函数 f(x)=1” ”x ，”” 的 图 形 ， 并 研究 /0) 。 试 将 所 得 到 
0 "X=0 


的 结论 与 (2)、(3)、(4) 的 结论 相 比 较 。 
练习 7 设 /(9=x+4。 
(1) 通 出 函数 f(x) 的 图 形 ; 
(2) 作出 曲线 y= f(x) 过 两 点 (1，5) 和 (8，8.5) 的 割 线 ; 
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(3) 找 出 点 ce (8) ,使 得 F(8)- FD = Fec)(8-D ， 然 后 作出 曲线 y = f(x) 在 点 (c,f(c)) 处 
的 切线 ， 观 察 此 切线 与 2) 中 作出 的 割 线 的 位 置 关系 。 
练习 8 在 区 间 {-n,z] 上 作出 函数 f(x) =xsin?*x 及 其 导 函 数 f(x) 的 图形 ， 指 出 它们 所 对 应 的 
曲线 ， 并 观察 其 图 形 特征 。 


4.2 ”微分 中 值 定 理 与 议 数 性 态 的 研究 
4.2.1 中 值 定理 


东 交 > 对 函数 Fo) =xxz-Dxz-2)， 观 察 罗 尔 定理 的 几何 意义 。 

解 : 因为 (0) = f() = f(2)=0， 由 罗 尔 定理 ， 存 在 4e (0,1),_e (2) 使 得 fn)= PCa)=0。 
(1) 画 出 y= f(x) 与 y= 了 (x) 的 图 形 如 图 4-4， 并 求 出 x 与 x2。 

ff[x_] = x*(x - 1)*(x - 2);g1 = Plot[f{x], {x, -1, 3}, PlotStyle -> RGBColor[1, 0, 0]]; 

g2 = Plot[f [x), {x, -1, 3}];Show[g]1, g2];NSolvelf'[x] == 0, x] 

(2) 画 出 y= f(x) 及 其 在 点 (4%, 了 (4)) 与 (%, 了 (x)) 处 的 切线 如 图 4-5。 

tl[x_] = f{0.42265]; t2[x_] = f{1.57735];Plot[{{f[x], t1[x], t2[x]}, {x, -1, 3}]; 


图 4-4 图 4-5 


对 函数 f(x)=1In(1+x)， 在 区 间 {0,4] 上 观察 拉 格 朗 日 中 值 定理 的 几何 意义 。 

解 : (1) 画 出 y= f(x) 及 其 左 、 右 端点 连 线 的 图 形 如 图 4-6; 

Clear[gl, g2];ff[x_] = Log[1+xla= 0; b = 4; 

gl[x_] := fra] + (人 fb] - ff[aD)*(x - ab - a); 

g2[x_] :=f'[x] - (f{b] - ffaD/(b - a);Plot[{f[x], g1[x]}, {x, a, b}]; 

久 ) 画 出 函数 y = /9 上 一人 的 曲线 如 图 4.7， 并 求 出 6 使 得 116)= 人 人， 


Plot[g2[x], {x, a, b}]];NSolve[f fx] == (fib] - ffa])/(b - a), x]; 

(3) 画 出 y=f(x)， 它 在 6 处 的 切线 及 它 在 左 、 右 端点 连 线 的 图 形 如 图 4-8。 
x] = 1.4853397382384472;g3[x_] = f[x1] + ff[x1]*(x - x1); 

Plot[{flx], gx]， 2g3[x]}, {x， a, bj]; 
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1 0.4 1.5 
0.75 
1 
0.5 0.2 
0.25 0.5 
1 3 4 
1 2 3 4 -0.2 1 2 3 4 
图 4-6 图 4-7 图 4-8 


4.2.2 ”函数 性 态 的 研究 
微分 学 中 一 个 典型 问题 是 判别 函数 的 驻 点 和 拐点 。 


实验 7 已 知 函 数 f(x)=2xs+3x +3x 一 2x*， 在 区 间 [-3,2] 上 画 出 函数 f(x), 了 "(x), FPC) 的 


图 形 ， 并 找 出 所 有 的 驻 点 和 拐点 。 
解 : 输入 以 下 Mathematica 语句 ， 图 形 如 图 4-9。 
flx_] = 2*x 人 ^6 + 3*x^S + 3#X^A 人 3 - 2#X^A2;Plot[f[x], {x, -3, 2}; 
dt[x_] =f[x]; ddf[x_] = 人 [xj;Plot[d 人 fx]，{x, -2, 1}]; 
Plot[df[x], {x, -0.2, 0.S}];Plot[ddffx]，{x, -2, 1}]); 
Plot[{ffx], dffx]}, ddf[x]}, {x, -0.6, 0.6}, 
PlotStyle -> {RGBColor[]1, 0, 0], RGBColor[0, 1, 0], RGBColor[0, 0, 11}]; 
NSolve[df[x] == 0, XI]NSolve[ddf[x] == 0, x] 
实验 8 已 知 函数 f(x) = 5 — 2x° -x +60x 一 150x? -180x -25， 在 区 间 [--6,6] 上 画 出 函 
数 Fo0,7C0, 大 (0 的 图 形 ， 并 找 出 所 有 的 驻 点 和 拐点 。 
解 : 输入 以 下 Mathematica 语句 ， 图 形 如 图 4-10。 
fflx_] = XAG/2 - 2*x’S - 2S*x^4/2 + 60*x^3 - 1S0*x^2 - 180*x - 25; 
Plot[{f{x), f[x], fF'[x}}, {x, -6, 6}, 
PlotStyle -> {GrayLevel[0], Dashing[{0.01°}], RGBColor[1, 0, 0]]]; 
NSolve[f[x] == 0, x]NSolve[f '[x] == 0, x] 


实验 9 设 /(x)= Te- 2 D+ 0.5)xF r+ 5)+Ir 7+10)0.5 -在 区 间 [-4,4 


上 分 别 画 出 f(x), 了 (x), 了 “(x) 的 图 形 ， 并 找 出 所 有 的 驻 点 和 拐点 。 

解 : 输入 以 下 Mathematica 语句 ， 图 形 如 图 4-11。 

f{x_] = ((x - 2)*(x - 1)*(x + 0.S)*(x + 2)*(x + 2.5)*(x + 3)*(x - 2.7) + 10)*(1.5 - x)/4; 

Solve[f'[x] == 0, xj;tdf = Table[{x, f[x]}}/. %;tf = Table[{x, f{x]}j /. % %; 

glL = Plot[{ffx], f'[x], f''[x]}, {x, -3, 2.5}, lotStyle -> {RGBColor[1, 0, 0], Dashing[{0.01°}), 
RGBCoilor[0, 0, 1]}, DisplayFunction -> Identity]; 

g2 = ListPlot[tf, PlotStyle -> PointSize[0.02], DisplayFunction -> Identity]; 

23 = ListPlot[tdf, PlotStyle -> PointSize[0.02], DisplayFunction -> Identity]; 

Show[gl, g2, g3, DisplayFunction -> $DisplayFunction]; 
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图 4-9 图 4-10 图 4-11 
练习 9 分 析 实 验 7 一 实验 9 的 结果 ， 你 能 得 到 什么 结论 ? 
练习 10 ”判别 函数 fFCo0O = 对 -222 -5x? 在 区 间 (-1.5,3) 内 的 所 有 极 值 点 。 


9 对 于 函数 f(x) = 2sin? 2z+ Txcos ， 在 区 间 [0,z|] 上 找 一 点 ,使 得 在 (x, f(x)) 点 


处 的 切线 水 平 。 6 
解 : 输入 以 下 Mathematica 语句 ， 图 形 如 图 4-12。 4 
Clear[ 们 ;人 fx_] = 2*Sin[2 x]^2 + $ x Cos[x/21^2/2;Plot[fIx], {x, 

0, Pi}]; 
Plot[{f[x], fF[x]}, {x, 0, Pi}];FindRootIf[x] == 0, {x, 0.8}H;f[x] /. -4 
% 

FindRoot[f'[x] == 0, {x, 1.5}];f{x] /. % 

FindRoot[P[x] == 0, {x, 2}];f[x] /. % 


练习 11 作出 函数 /= 一 -5<x<4) 的 图 形 ，c 分 别 取 -1.0.1.23 等 5 个 值 ， 试 
比较 作出 的 5 个 图 ， 并 从 图 上 观察 极 值 点 、 驻 点 、 单 调 区 间 、 了 凹凸 区 间 以 及 渐 近 线 。 
4.3 ”泰勒 公式 与 函数 蜗 近 


在 泰勒 展开 式 中 ， 若 忽略 泰勒 余 项 ， 用 nn 次 多 项 式 作为 函数 的 近似 值 ， 会 产生 截断 误差 。 
截断 误差 的 大 小 ， 即 为 泰勒 余 项 , 0 ee 如 


图 4-12 


Jo+Ar)= 太 xxo) 二 上 Co)Ar+ 本 7 “Oo)Az +… 十 一 a )Ax” 


2 (Co+6AnDAr (0 <6 < 


+ 


j 太 orCco|<M ， 则 截断 误差 
|R.|= 


利用 泰勒 公式 人 -1+ + 于 近似 计算 er 。 若 | 才 <1， 要 求 截断 误差 


车 


n+1 


M 
(n+1) Ax Ax™!|< 
(n 9 FT (n i 


解 : 因为 |R 


e | 全 


ee re 只 要 取 关 =5 即 可 ， 
(n+l)! (n+))! mr 


R= 
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”输入 以 下 Mathematica 语句 ， 得 结果 见 表 4-1。 
flx_] = Normal[Series[Exp[x], {x, 0, 5}]] 
Table[N[{x, Exp[x], fTx], Exp[x] - ffx]}], {x, -1, 1, 0.4}] 


: 《观察 和 nn 对 误差 的 影响 ) 分 析 利 用 泰勒 展开 式 近 似 计算 sin7 时 和 的 影响 。 
解 : (1) 输入 以 下 Mathematica 语句 ， 定 义 泰 勒 展开 函数 tsin [x,,n]; 
tsin[x_,a_,n_ ] := Module[ft u}, f = Normal[Series[Sin[t], {t, a, n}]}; 

u=f/.t -> x; Return[N[u, 10]]] 

(2) 固定 x0=0， 观 察 阶 数 n 对 误差 的 影响 。 
a = 0;Table[N[{n, tsin[7, a, n], Sin[7] - tsin[7, a, n]}], {n, $, 30, S$}] 

由 表 4-2 可 看 出 当 n 增 大 时 ， 误 差 变 小 。 

表 4-1 泰勒 公式 的 截断 误差 表 4-2 阶 数 n 对 截断 误差 的 影响 


89.8917 -89.2347 
0.367879 0.366667 0.00121277 


37.694 -37.037 
0.5488812 0.548752 0.0000596361 


0.0867075 0.570279 
0.818731 0.818731 8.64113x10” 


0.647032 0.00995448 
1.2214 1.2214 9.14935x10® 


0.656992 -5. Rt 
1.82212 1.82205 | 0.0000708004 .68898X10 


0.656987 i 下 
2.71828 2.71667 0.00161516 1.83325x10 


(3) 固定 n=5， 观 察 zo 的 影响 。 
n = $;Table[N[I{a, tsin[7, a, n], Sin[7] - tsin[7, a, n]}], {a, 3, 10}] 


由 表 4-3 可 看 出 ， 误 差 随 着 Ax =|* 一 为 | 的 减 小 而 变 小 。 
表 4-3 初始 点 如 对 误差 的 影响 


| 
-1.33055 1.98753 | 0. 656987 
-0.248563 0.905549 | :| 0.658365 -0.00137831 
0.584393 0.0725938 | ; 0.713015 -0.560288 


0.656793 1.000193336 | 和 0.508515 0.148471 


(根据 图 形 观 察 泰 勒 展开 的 误差 〉 观察 函数 f(x)= sinx 各 阶 泰勒 展开 的 图 形 。 
解 : (1) 固定 x=0， 观 察 阶 数 n 的 影响 ， 如 图 4-13、 图 4-14。 
£525 = tsin[x, 0, 25]; gs1S = tsin[x, 0, 15]; gs05 = tsin[x, 0, S]; 
Plot[{Sin[x], gs2S, gs15, gs05}, {x, 0, 5 Pi}, PlotRange -> {-3, 3}, 
PlotStyle -> {RGBColor[0, 0, 1], RGBColor[l, 1, 0], RGBColor[1, 0, 0], 
RGBColor[0, 1, 1]}, Background -> RGBColor[0.7S3, 0.753, 0.7S3]]; 
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图 4-13 


(2) 扩大 显示 区 间 范 围 ， 以 观察 在 偏离 展开 点 如 时 泰勒 多 项 式 对 函数 的 通 近 情况 。 


t= Table[Normal[lSeries[Sin[x], {x, 0, i}]], {i, 1, 19, 2}]; 
PrependToft, Sin[t]];Plot[Evaluate{t], {x, -Pi, Pi}]; 
Plot[Evaluate[lt], {x, -Pi, Pi}, AspectRatio -> Automatic]; 


Plot[Evaluate[lt], {x, -2 Pi, 2Pi}, AspectRatio -> Automatic]; 
Plot[Evaluate[t], {x, -3 Pi, 3 Pi}, AspectRatio -> Automatic]; 


图 4-14 


通过 观察 泰勒 多 项 式 图 形 与 函数 图 形 (如 图 4-15) 的 重合 与 分 离 情 况 , 可 以 看 到 在 [non] 
范围 内 y=sinx 的 9 次 泰勒 多 项 式 与 函数 图 形 几乎 重合 ， 而 在 [-2r,2x] 范 围 内 =sin x 的 各 次 
泰勒 多 项 式 陆续 与 ?=sinx 的 图 像 分 离 ， 但 其 15 次 以 及 更 高 次 的 泰勒 多 项 式 仍 紧 靠 着 
=sinxz ， 而 在 [-3r,3m] 范 围 内 ， 其 15 次 泰勒 多 项 式 的 图 形 也 与 ?=sinx 的 图 像 分 离 。 由 此 
可 见 , 函数 的 泰勒 多 项 式 对 于 函数 的 近似 程度 随 着 次 数 的 提高 而 提高 , 但 对 于 任 一 确定 次 数 的 
多 项 式 ， 它 只 在 展开 点 附近 的 一 个 局 部 范围 内 才 有 较 好 的 近似 精确 度 。 


(3) 固定 n=10， 观 察 wo 的 影响 ， 如 图 4-16。 


Clear[gs0, gs5, gs12, t];gs0 = tsin[x, 0, 10];gs5 = tsin[x, S, 10];gs12 = tsin[fx, 12, 10]; 


PlotH{Sin{x], gs0, gsS, gs12}, {x, 0, 6 Pi}, PlotRange -> {-3, 3}, 


PlotStyle -> {RGBColor[0, 0, 1], RGBColor[1, 1, 0], RGBColorf[l1, 0, 0), 
RGBColor[0, 1, 1]}, Background -> RGBColor{0.753, 0.753, 0.753]]; 


了 7 


图 4-16 
练习 12 利用 泰勒 展开 式 的 近似 计算 ， 完 成 以 下 任务 : 
(1) 根据 y=In(cosx? +sinx) 的 图 形 回答 : 函数 的 定义 域 ， 函 数 是 否 满足 泰勒 展开 的 条 件 ; 
函数 在 什么 范围 内 可 以 泰勒 展开 。 
(2) 取 不 同 的 为， 利用 泰 勤 展开 式 近 似 计算 > 在 x=0.8 和 好 2 处 的 值 ， 并 列表 总 结实 验 结 


果 。 
练习 13 泰勒 展开 的 图 形 分 析 。 


(1) 作出 y=In(cosx? +sinx) 的 函数 图 形 和 y 的 泰勒 展开 式 〔 选 取 不 同 的 加 和 值 ) 的 图 
形 ， 并 将 图 形 进 行 比较 。 

(2) 从 wo 和 nn 两 个 角度 分 析 泰 勒 展开 方法 ， 结 合 泰勒 余 项 进行 总 结 。 
练习 14 用 泰勒 展开 式 通 近 对 数 函 数 In(1+x) ,x 的 取 值 范围 为 (0,1.5], 泰勒 多 项 式 的 次 数 依 
次 取 1,2,…,10 ， 观 察 这 些 多 项 式 毅 近 f(x) 的 情况 ， 并 与 sinx 的 泰勒 多 项 式 逼 近 Sin x 的 情况 
比较 。 试 分 析 两 者 的 差别 及 造成 这 些 差 别 的 原因 。 


4.4 ”导数 的 应 用 


练习 15 (飞机 安全 降落 曲线 的 确定 ) 飞机 为 了 安全 降落 ， 必 须 在 开始 降落 时 和 着 陆 时 保持 水 
平 飞行 姿 态 ， 还 必须 在 下 降 过程 中 保持 较 小 的 铅 直 加 速度 否则 乘客 将 感到 不 适 )， 试 确定 满 
足 上 述 要 求 的 飞机 安全 降落 曲线 。 

练习 16 试 选 择 余弦 曲线 f(x)=acos[b(x+c)]+4d 作为 飞机 的 降落 曲线 ， 重 复 上 述 实 验 。 
[提示 ， 先 利用 余弦 函数 性 质 可 得 : o=4d= 了 ， c 的 值 可 从 /CD = 户 求 得 ， 最 后 从 F(O) = 0 可 
求 出 b。] 

练习 17 现 有 两 个 等 强度 的 光源 A、B 相距 10m。 已 知 单 光源 对 某 点 的 光照 强度 与 光源 的 强 


度 成 正比 ， 与 光源 到 该 点 的 距离 的 平方 成 反比 。 设 线段 CD 与 4B 平行 相距 dm， 其 中 AC 和 
BD 均 与 4B 垂直 。 现 要 在 线段 CD 上 求 光照 强度 最 小 的 一 点 P。 


练习 18 ” 设 圆柱 形 铁皮 负 头 的 体积 为 y, 高 为 h, 底面 半径 为 r。 若 V 给 定 ， 问 二 应 等 于 多 少 ， 
才能 使 铅 头 表面 面积 最 小 (从 而 使 材料 费 最 小 )? 这 个 问题 很 易 解决 ， 其 答案 是 “= 2 。 


然而 ， 如 果 你 到 超市 观察 一 下 货架 上 的 各 种 镀 头 ,会 发 现 多 数 缸 头 的 高 比 底面 直径 大 ， 比 
值 大 致 在 2 一 3.8 之 间 变 动 ， 我 们 试探 索 一 下 其 中 的 道理 。 
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(1) 制作 镀 头 铁皮 是 从 大 铁皮 板 上 切割 下 来 的 。 饶 头 的 侧 壁 用 矩形 铁皮 围 成 ， 从 大 铁皮 板 
上 切割 矩形 片 不 会 产生 多 少 边 角 废 料 ; 而 如 果 从 一 块 正 方形 铁皮 上 切割 下 一 块 块 的 圆 片 ， 则 不 
可 避免 地 会 余下 一 些 边 角 料 而 造成 浪费 《〈 见 图 4-17)。 如 果 把 废弃 的 边角料 也 计算 在 所 用 的 材 


料 内 ， 那 么 为 了 使 用 去 的 材料 最 小 ， 证 明 一 “应 该 等 于 二 ~ 2.55 ， 


(2) 为 了 在 切 制图 片 时 尽量 少 浪费 此 材料， 可 在 大 铁 友 板 上 排列 如 图 4-18 所 示 的 正六 边 
形 ， 而 将 圆 片 从 六 边 形 上 切割 下 来 ， 若 使 用 这 种 做 法 ， 证 明 最 经 济 的 外 形 满足 


h_4y3 
: 


~2.21 
区 


(3) 除了 材料 费 外 ， 还 需 考虑 色 头 的 制作 费 。 可 以 假定 影响 制作 费 大 小 的 值 主要 是 接 颖 的 
长 度 ， 试 以 情况 2) 为 例 ， 说 明 铅 头 制 作 的 总 费用 正比 于 下 式 表示 的 量 : 
4V3r? +2xrh+k(4nr+h) 
其 中 常数 大 表示 单位 长 的 接 缝 费 相当 于 多 少 单位 面积 的 铁皮 价格 ， 并 证 明 当 上 式 达 到 最 小 时 ， 
二 必 满足 下 式 : 


WW sh 2TF 一 /7 


用 强 Rh/r—4V3 
(4) 记 y- 寻 ,x 和， 利用 计算 机 画 出 函数 
_ Yrx (2n—x) 
3 nx—4V3 


的 图 形 ， 并 利用 此 图 形 说 明 ， 当 体积 了 较 大 或 接 缝 费 较 小 〈 即 大 较 小 ) 时 ， “应 接近 于 2.21; 


而 当 V 较 小 或 接 颖 费 较 大 时 ， 生 就 要 有 较 大 增加 。 
这 说 明 ， 体 积 较 大 的 镶 头 ， 其 外 形 应 狠 胖 些 ， 而 体积 较 小 的 负 头 ， 其 外 形 则 应 瘦长 些 。 


图 4-17 图 4-18 
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实验 五 ”一 元 消 数 积分 学 


本 实验 的 晶 的 是 加 深 理解 定 积分 的 概念 ， 深 入 理解 积分 理论 中 分 割 、 近 似 、 求 和 、 取 极 
限 的 思想 方法 ， 初 步 了 解 定 积分 的 近似 计算 方法 。 


5. 1 ” 定 积 分 的 概念 


5.1.1 由 定义 计算 定 积分 


在 定 积 分 的 定义 中 ， 划 分 积分 区 间 的 方法 与 在 每 个 小 区 间 上 取 的 点 & 都 是 任意 的 ， 如 果 
当 分 划 的 每 个 小 区 间 长 度 的 最 大 值 和 4 趋 于 0 时 , 它 的 黎 曼 和 存在 极限 ,此 极限 值 即 为 我 们 所 定 
义 的 一 个 函数 在 一 个 指定 的 区 间 上 的 定 积 分 。 
利用 定义 计算 积分 x?dx 
解 : 在 区 间 [0, 1] 中 插入 n-1 个 分 点 (我 们 可 以 均匀 地 产生 ， 也 可 以 借助 随机 数 任意 产生 )， 在 
一 定 意义 下 取得 了 任意 分 点 与 任意 的 所 计算 > 7(E)Ax ， 即 可 求 得 jam > (ED)Ax 的 近似 值 
提高 精度 的 方法 是 增加 分 点 。 输 入 以 下 Mathematica 语句 ， 
Clear[f, xj;ffx_] := x^2; a = 0; b = 1; n = 20; Array[x, {641}]; x[0] = a; 
For[k = 1, k <= 6, k++, xfn] =b;s=0; 
Do{x[i] = (i + Random[])*(b - a)/n, {i, 1,n- 1}]; | 
For[i = 0, i < n, i++, delxi = x[i + 1] - x[i]; ¢ = xfi + delxi*Random([]; 
s=s+flcj*delxi]; ~ Printl"n=", n," s="', Sj; n = n*2] 
结果 为 : s=0.332547。 由 于 分 割 的 任意 性 及 & 的 任意 性 ， 即 使 n 固定 ， 每 次 运行 所 得 的 结果 
也 很 可 能 不 同 ， 表 5-1 给 出 其 中 的 一 组 实验 结果 。 
表 5-1 0 


0.332547 0.328223 0.336509 0.323042 0.331204 0.333125 


R 


0.335564 0.33393 0.333617 0.333073 0.327678 0.333281 


0.332935 0.332832 0.33348 0.334876 0.332891 0.33332 


0.332621 0.333104 0.333039 0.333483 0.333468 0.33333 


0.333368 0.333357 0.333219 0.333312 0.333383 0.333333 


0.333368 0.333359 0.333324 0.333306 0.33335 0.333333 
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由 表 5-1 中 可 以 看 出 ， 表 中 任何 两 个 数据 都 不 完全 相同 ， 但 它们 之 间 的 差异 不 大 ， 特 别 是 
当 n=640 时 ，5 次 运行 的 结果 前 4 位 有 效 数字 是 一 样 的 ， 因 为 我 们 可 以 认为 | zzdz= 0.3333 。 
练习 1 利用 定义 计算 | sin xdx。 
5.1.2 ”从 图 形 观察 积分 和 与 定 积分 的 关系 

定 积分 | Codzx 在 几何 上 表示 由 曲线 y= f(x) ,直线 +=a，x=b 及 x 轴 所 围 成 的 曲 边 榜 
形 的 面积 ， 而 积分 和 立 (50Ax 在 几何 上 表示 n 个 小 矩形 的 面积 和 ， 其 中 第 ;个 小 矩形 的 
高 为 /GD)， 窗 为 A6 
从 图 形 上 观察 | :sin xdx 的 积分 和 与 定 积分 的 关系 。 


解 : 设 曲 边 梯 形 由 y=sinx，y=0,， += 了 为 界 。 我 们 采用 分 划 的 方法 ， 用 小 区 间 上 拢 形 的 面 


积 来 欢 近 曲 边 梯形 的 面积 ， 所 采用 的 Mathematica 程序 附 后 。 

由 图 5-1 可 以 看 出 ， 当 分 划 越 来 越 细 时 ， 所 得 到 的 小 矩形 面积 之 和 与 曲 边 梯形 的 面积 5 
之 间 的 差距 〈 称 之 为 误差 ) 变 得 越 来 越 小 。 当 每 个 小 区 间 都 缩 向 一 点 时 ， 误 差 为 0， 即 小 算 形 
面积 之 和 趋 于 5。 


0.5 1 15 2 2.5 3 0.5 1 1.5 2 2.5 3 


1 i 
DEEP 


0.5 1 1.5 2 2.5 3 0.5 1 15 2 2.5 3 


图 5-1 
练习 2 从 图 形 上 观察 |“(1 -2”) dx 的 积分 和 与 定 积分 的 关系 。 


5.1.3 用 定义 计算 定 积分 的 简化 


前 面 直接 用 定义 计算 积分 和 的 方法 显得 很 繁琐 。 为 了 使 计算 简单 些 ， 现 对 定义 中 的 积分 
和 加 以 分 析 : 设 函 数 f(x) 在 每 个 小 区 间 [x%.,,+] 上 有 最 值 ， 分 别 记 为 M;( 最 大 值 ) 和 m， (最 
小 值 ) GG=12…,n) ， 则 有 mA% 入 f(E)Ax 所 MAx (i=12,…,n)。 求 和 得 到 
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mAx <y FE <y》 MAx, 记 了 = 六 MAr，S= 这 mA 分 别称 为 上 积分 和 下 积分 


i=! i=1 i=l i=l 


和 。 显 然 ， 若 用 积分 和 近似 积分 值 ， 其 产生 的 误差 不 超过 上 、 下 积分 和 之 差 。 
当 4 一 0 时 ，5 和 8 的 极限 存在 且 相 等 ， 则 $ 的 极限 即 定 积分 也 存在 ， 且 等 于 上 积分 和 


或 下 积分 和 的 极限 。 


利用 上 积分 和 、 下 积分 和 计算 | 3xzdx 。 
解 ， 函 数 f(x) =3x? 在 区 间 [0, 1] 上 是 单调 增加 的 ， 故 在 每 个 小 区 间 [x 和] (=1,2,…,n) 上 ， 
其 最 大 值 M, = f(x,)， 最 小 值 m = f(x ,) ， 于 是 : 5=> Jian， S=> /0A 表 5-2 


所 列 ， 结 果 表 明 ， 只 要 分 割 点 充分 多 ，$ 和 8 的 差 可 以 任意 小 ， 所 采用 的 Mathematica 程序 附 


后 。 
表 5-2 的 值 


1.07625 0.990645 


1.03781 . : 0.995317 


1.01883 k a 0.997657 


当 定 积分 存在 时 ,所 有 任 取 的 积分 和 当 4 一 0 时 的 极限 都 相同 ， 此 时 可 以 选择 较 简单 的 划 
分 与 简单 的 台 。 一 般 地 ， 将 区 间 等 分 ， 且 让 小 区 间 的 某 端 点 作为 (i=1,2,…,n) ， 这 样 积分 和 


hm FP (5-1) 
n n 


Ga a :ss ; (5-2) 


i=1 


便 成 为 : 


i=l 


St 


用 (5-DD 式 或 (5-2) 式 计算 定 积分 J”xdx (其 中 M 为 正 数 )。 


解 : 因为 被 积 函数 f(x) =x 在 [0,M] 上 单调 增加 , 故 由 (5-1)、(5-2) 式 确定 的 分 别 是 积分 |“ xdx 


的 下 积分 和 与 上 积分 和 。 输入 以 下 Mathematica 语句 ,分别 计 算 M=1,2,4,8,10 时 的 上 积分 和 与 
下 积分 和 所 得 结果 如 表 5-3。 
Clearl[lf, x];n = 1; k = 50000; a = 0; f[x_] = x^n; 
FortM = 1, M < 11, M++, b = M; s = NSumlfla + (b - a)*i/k]*(b - a)/k, {i, 1, kK}]; 
sl = NSumlffa + (b - a)*(i - D/kl*(b - a)/k, {i, 1, k}]; e= Absfs - s1]; 
PrinttM" Os ms me" NIG+sD/2]] 
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一 表 53 上 “xdx 的 近似 值 


由 上面 的 结果 知道， 者 用 上 积分 和 与 下 各 分 和 的 均值 “作为 定 积分 的 近似 什 ， 结果 将 


我 人 知道， 人 二 人 依赖 于 M 什 ， 换 而 言 之 ， 积 分 值 为 M 的 函数 ， 若 将 第 一 列 的 M 值 平 
方 ， 会 得 到 1，4，16，64，100， 这 些 值 刚好 是 最 后 一 列 相应 数 的 两 倍 ， 也 即 最 后 一 列 数 与 第 
一 列 数 之 间 的 近似 满足 = F(x) -2 


练习 3” 当 M 为 一 般 的 实数 时 , 近似 计算 定 积分 | xdx , 并 验证 近似 什 与 M 之 间 是 否 满足 函 
数 关 系 ?= FOOD = 
练习 4 用 积分 和 近似 计算 定 积分 |*“x*dx n 为 自然 数 )， 将 结果 填 入 表 5-4 中 ， 并 寻找 近似 


值 与 参数 M，n 之 间 的 函数 关系 。 
表 5-4 『 xdz 的 近似 值 


练习 5 ”用 积分 和 近似 计算 定 积分 | x"dx ， 将 计算 结果 填 入 表 5-5 中 ， 并 有 寻找 积分 值 与 n 之 
间 的 关系 。 
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表 5-5 | 2 
| | 近似 值 与 a 的 关系。 


画册 变 上 限 函 数 有 00 = 4. 及 表 数 09) 0 的 图 形 。 


解 ， 输 入 以 下 Mathematica 语句 ， 所 得 图 形 如 图 5-2。 

fi[x_] := Integrate[t*sExp[t^2], {t, 0, x}]; f2[x_] := X*EXxp[x^A2]; 

g1 = Plot[f1[x], {x, 0, 3}, PlotStyle -> RGBColor[1 0, 0]]; 

g2 = Plot[f2[x], {x, 0, 3}, PlotStyle -> RGBColor[0, 0, 1]];Show[g], g2]; 


画 出 变 上 限 函 数 | tsint?dt 及 其 导 函 数 的 图 形 。 


解 : 输入 以 下 Mathematica 语句 ， 所 得 图 形 如 图 5-3。 

fllx_] := Integrate[t*Sin[t^2], {t, 0, x}];f2[x_] := Evaluate[D[f1[x], X]]; 
gl1 = Plot[f1[x], {x, 0, 3}, PlotStyle -> RGBColor[1, 0, 0]]; 

g2 = Plot[f2[x], {x, 0, 3}, PlotStyle -> RGBColor[0, 0, 1]];Show[g]l, g2]; 


0.5 1 1.5 2 2.5 3 


5-2 图 5-3 


5.2 ” 定 积 分 近似 计算 的 梯形 法 


在 数值 计算 中 ， 称 用 5-1) 式 与 (5-2) 式 近 似 定 积分 的 方法 为 矩形 法 ， 这 是 因为 这 两 个 
式 子 在 几何 上 表示 一 些 矩 形 面积 的 和 。 在 近似 计算 中 也 常用 式 子 (将 在 实验 二 十 六 中 作 进 一 步 
的 研究 ) 


[er ,| (5-3) 
n 


i=] 


来 求 定 积分 上 7COdr， 流 式 是 [ 守 1@+ 全。 26-D 和 Gres a js 一 4 的 平均 ， 它 


在 几何 上 表示 一 些 梯形 面积 的 和 ， 称 为 梯形 法 。 
类 用 梯形 法 近似 计算 定 积分 | ,erdx 。 


38 


解 ， Fo = 人 在 [0, 1] 上 连续 ， 所 以 定 积分 | erdx 存 在 。 现 将 区 间 [0,1]jn 等 分 ， 由 梯形 公式 (5-3) 
有 


天 n 这 志 51 Ce 51 
人 ea- 二 arer28e -4S 2 | 


利用 此 式 ， 输 入 以 下 Mathematica 语句 : 
f[x_] := Exp[x]; a = 0; b= 1;s0 =1.; sl = 0;n =20;m=6; 
While[Abs[s0 - s1] > 10^-m, sl = s0; 
s0 = N[Sum[fla + i*(b - a)/nj*(b - a})/n, {i, 0, n- 1}} + 
Sum[fla + i*(b - a)/n]*(b - axXn, {i, 1, n}])/2.; 
n=n*2;]; Print[ffx], "在 区 间 ["a,",",b"] 上 的 积分 近似 值 为 ", s0] 
运行 结果 为 1.71828。 


练习 6 ”提高 计算 精度 ， 根 据 结果 归纳 定 积分 | erdx 与 e 之 间 的 关系 。 
练习 7 用 梯形 法 近似 计算 定 积分 | 一 dx ， 并 分 析 结果 与 的 关系 ? 


5.3” 定 积分 的 应 用 


实验 8 “(平面 曲线 所 围 成 图 形 的 面积 ) 设 f(x)=e-™” 了 “和 g(x)=4cos(x 一 2)。 计算 区 
间 [0， 4 上 两 曲线 所 围 成 的 平面 图 形 的 面积 。 

解 ， 输入 以 下 Mathematica 语句 ， 所 围 成 的 图 形 如 图 5-4。 

Clear[f gj;f[x_] = Exp[-(x - 2)^2 Cos[Pi x]l;g[x_] = 4 Cos[x - 2]; 

Plot[{f[x]l, g[x]}, {x, 0, 4}, PlotStyle -> {RGBColor[1 0, 0], RGBColor[0, 0, 1]}]; 

FindRoot[f{x] == g[x], {xX, 1.06}] 

FindRoot[f[x] == g[x], {x, 2.93}] 

NIntegrate[g[x] - f{x], {x, 1.06258, 2.93742}] 

所 得 面积 为 s=4.17413。 


练习 8 没 /= -3 tl 18 +12x+1 和 g(x)=-4x +28x-56x+32， 计算 两 曲 
线 所 围 成 的 平面 图 形 的 面积 。 

是 〈 平 面 曲线 的 弧 长 ) 设 f(x)=sin(x+xsinx)， 计 算 (0, f (0)) 与 (27x, (2)) 两 点 间 曲 
线 的 弧 长 。 

解 : 在 区 间 [0,2r] 上 作出 曲线 的 图 形 如 图 5-5。 利用 公式 S= 信 册 +(FCD) dz， 输入 以 下 


Mathematica 语句 ， 得 曲线 的 弧 长 为 12.0564。 
Clear[fl];f{x_] = Sin[x + x*Sin[x]];Plot[f{x], {x, 0, 2Pi}, PlotStyle -> RGBColor[1, 0, 0]]; 
NIntegrate[Sqrt[1 + f'[x]^2], {x, 0, 2 Pi}] 
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图 5-4 图 5-5 


练习 9 设 f(x)=sin(xsin(x 一 2》)， 计算 曲线 f(x) 在 区 间 [4, 5] 上 的 弧 长 。 

问 针 (省 转 体 的 体积 ) 计 算 由 f(x)=xsin?*x 和 x=0,x=z 所 围 成 的 图 形 分 别 绕 x 轴 、y 轴 
旋转 所 得 立体 的 体积 。 了 

解 ; (1) 绕 x 轴 旋转 所 得 旋转 体 体积 V. = | (7(CD) dx; 


(2) 绕 y 轴 旋转 所 得 旋转 体 体积 V, = "27 (x)dx 。 


输入 以 下 Mathematica 语句 ; 

Clearl[f];ffx_] = x^2*Sin[x];Plot[f{x], {x, 0, Pi}, PlotStyle -> RGBColor[1, 0, 0]]; 
Integrate[Pi*f{x]^2, {x, 0, Pi}] 

Integrate[2*Pi*x*ffx], {x, 0, Pi}] 

得 V. = 54.8366 ，V, = 76.3829 。 

练习 10 计算 由 f(x)=e ”了 ”4 和 x=1,x=5,y=0 所 围 成 的 图 形 围绕 x 轴 旋 转 所 得 立体 
的 体积 。 . 


附 ”Mathematica 程序 
.1. 实验 2 的 程序 
Clear[i n, a, bj];Clear[f, ¢, d, x, s]; 
regularpartition[a_, b_, n_] :=P = Block[{i}, Table[N[a + (b - a) i/n], {i, 0, n}]]; 
randompartition[a_,b_,n |]:= 
P = Union[Table[Random[Real, {N[a], N[b]}], {n - 1}], {N[a], NIb]}]; 
s[f_,c_,d ,x ,choice_ :1] := If{c <=x <=d, f[(1 -choice)*c + choice*d], 0]; 
riemann[f , a_, b , n_, choice :1] := N[(b - a)* Sum[f{(1 - choice)*(a + (i - 1)*(b - a)/n) + 
choice*(a + i*(b - a)/n)], {i, 1, n}]/n]; 
arbitraryriemann[f , P_, choice_:1] := Block[{i}, 
Sum[(Union[N[P]][[i + 1]] - Union[NEP]][EID* 
f{(1 - choice)*Union[N[P]][[i]] + choice*Union[N[P]][[i + 1]]], {i, 1, Length[P] - 1}]]; 
erlf ,a_,b_,n_, choice_:1] := 
Abs[NIntegrate[f[x], {x, a, b}] - riemannlf, a, b, b, choice]]; 
earlf_, P_, choice_:1] := Block[{x}, 
Abs[NIntegrate[ffx], {x, Min[N[P]], Max[NIP]]}] - arbitraryriemann[f, P, choice]]]; 
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ee 


viewapprox[f , P_, choice_:1] := ( 
one = Block[{x}, Plot[f{x], {x, Min{N[P]] - 0.1, Max[N[P]] + 0.1), 
DisplayFunction -> Identity]]; 
two = Block[fi x}, Plot[Release[Table[s[f, Union[N[IP]I][t]，Union[N[P]][GiE + 1]], x, 
choice], {i, Length[P] - 1}]], {x, MinINIP]] - 0.1, Max{N[P]] + 0.1}, PlotRange -> Al, PlotPoints 
-> S0, DisplayFunction -> Identity]]; 
Block[{x}, Showftwo, one, PlotLabel -> 
ToString[Length[P] - 1] <> "分 划 最 大 分 划 " <> ToString[NInorm[P]]] <> 
If[Chop[ear[f, P, choicel] == 0, "无 误差 ", "误差 '' <> ToString[ear[P P, choice]]], PlotRange -> 
Al, DisplayFunction -> $DisplayFunction]]); 
Do[viewapprox[Sin, regularpartition[0, Pi, 2^n], 0.5], {n, 2, 9 
viewapprox[Sin, randompartition[0, Pi, 16], 1]; 
Do[viewapprox[ArcTan, randompartition[0, Pi, 2^n], 1], {n, 2, 6]]; 
2. 实验 3 的 程序 
Clearlf, x, a, bl;f[x_1 := Sin[x}j;a = 0; b = Pi/2; n = 0; 
g = Plot[f[x], {x, a, b}, PlotStyle -> RGBColor[], 0, 0], DisplayFunction -> Identity]; 
Forfj = 3,j <= 100,j *= 2; n =j; ttl = {}; tt2 = {}; supper = 0; slower = 0; 
Forli = 0,i < n,i++, x1 = a+(b -a)*i/n; x2= xl + (bb -a)/n; 
supper = Supper + f{[x2]/n; slower = slower + fIx1}/n; 
ttl = Append[ttl,Graphics[{RGBColor[0, 0, 1], Rectangle[{x1, 0}, {x2, f[x21}1}]; 
tt2 = Append[tt2, Graphics[{RGBColor[0, 0, 1], Rectangle[{xl f[x1]}, {x2, 0}1}1}; 
Printl” “] 
Show{g, ttl, tt2, DisplayFunction -> $DisplayFunction, 
PlotLabel -> (n - D" 的 分 割 点 的 图 示 "]; 
Print[" 此 时 有 ， 上 和 -下 和 一", supper - slower]; 
Print["' 求 得 的 积分 近似 值 为 ", (supper + slower)/2.]; ] 
Clear[f, x, ab];ffx_] := 3*x^2;a = 0; b = 1; n = 500; 
For{j = 10, j <= 1000, j *= 2; n = j; supper = 0; slower = 0; 
Forfi = 0,i<n,i+t+, x1 = a + (b -a)*i/n; x2 = x1 + (b - a)/n; 
supper = supper + f[x2Y/n; slower = Slower + f{xl)/n;}]; 
Print[" 子 区 间 数 n=", n, "时 ， 积 分 近似 值 为 "，(supper + slower)/2.," 上 和 -下 和 ="， 
N[supper - slower]];] 
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实验 六 空间 曲线 与 曲面 的 绘制 


本 实验 的 目的 是 进一步 观察 空间 曲线 和 空间 曲面 图 形 的 特点 。 


6.1 空间 曲线 的 绘制 
绘制 空间 曲线 一 般 使 用 曲线 的 参数 方程 。 


x= x(t) 
swan- ， te [tw ,two ] 所 确定 的 空间 曲线 的 Mathematica 命令 为 
z= z(t) 


ParametricPlot3D[{x[t),y[t],z[t]},{t,tmin,tmax}, 选 项 ]。 


x=sint 
y=2cosi 的 图 形 。 
z=t/2 


绘制 参数 曲线 


解 : 输入 以 下 Mathematica 语句 ， 得 到 图 形 如 图 6-1。 
ParametricPlot3D[{Sin[t], 2 Cos[t], t/2}, {t, 0, 12}]; 
x=t/5 

y=cost 的 图 形 。 


Z=Sint 


练习 1 绘制 参数 曲线 


Xx=cost 

到 绘制 参数 曲线 1 y= 一 的 图 形 。 
1+21 
z=arctant 


解 : 输入 以 下 Mathematica 语句 ， 得 到 图 形 如 图 6-2。 


-1 
2 0 1 


图 6-! 
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ParametricPlot3D[I{ Cos[t]^2, LU/(1 + 2*¢), ArcTan[t]}, {t, 0, 8}]; 


X=(4+ sin201)cost | 
练习 2 绘制 环 面 螺 线 4 y=(4+sin20r)sint 的 图 形 ， 并 观察 图 形 的 特征 。 


z= COs201 


x=(2+ e082)cost 
练习 3 绘制 三 叶 线 y=(2+cos> 人 sint 的 图 形 ， 并 观察 图 形 的 特征 。 


2 
2 


6.2 ”空间 曲面 的 绘制 
作 一 般 式 方程 z = f(x, y) 所 确定 的 曲面 图 形 的 Mathematica 命令 为 
Plot3D[flx;y],{x;xmin,xmax],{y,ymin,ymax}, 选 项 ] 
{x= x(u,v) 
作 参 数 曲 面 4y = ylu,y) ，we [www ,Unor |] ， ve [vo ,vm | 所 确定 的 曲面 图 形 的 Mathematica 
ZzZ= z(u,v) 
命令 为 、 
ParametricPlot3D[{x[u,v],y[uv],z[uv]}j{uuminumaxj{fvvminvmax}, 选 项 ] 
绘制 三 维 图 形 〈 空 间 曲 线 、 空 间 曲面 ) 常用 的 选项 见 表 6-1。 
表 6-1 


是 否 汞 坐标 轴 
AxesLabel 是 否 在 坐标 轴 上 加 标注 
Boxed 绘制 外 框 ， 定 义 False 则 不 绘制 外 框 


Mesh 是 否 在 图 形 表 面 加 上 网 格 线 
PlotRange Automatic Z 方 向 的 绘图 范围 
Shading True 表面 不 上 色 
ViewPoint {1.3,-2.4,2} 观测 点 
PlotPoints 15 在 x 和 yy 方向 取样 点 


各 姬 9 画 出 孙 数 z=sin(ryx +y ) 的 图 形 。 
解 : 输入 以 下 Mathematica 语句 ， 图 形 如 图 6-3。 
Plot3D[Sin{Pi*Sqrt[x^2 + y^2]), {x, -1, 1}, {y, -1, 1}, 
PlotPoints -> 30, Lighting -> True]; 

画 出 函数 z=-xye-” 的 图 形 。 
解 : 输入 以 下 Mathematica 语句 ， 图 形 如 图 6-4。 
Plot3D[-x*y*Exp[-x^2 - Y^2], {x, -3, 3}, {y, -3, 3}, PlotPoints -> 30, 

AspectRatio -> Automatic]; 
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图 6-3 
练习 4 画 出 函数 z=sinxcosy 的 图 形 ， 并 观察 图 形 的 特征 。 


练习 5 西 出 函数 z= 2 区 2 的 图 形 ， 并 观察 图 形 的 特征 。 
练习 6 画 出 函数 z= y+ 的 图 形 ， 并 观察 图 形 的 转 征 。 


X= sinycosu 
y=sinvsinu ， 画 出 其 图 形 。 


Z=COSy 
解 : 输入 以 下 Mathematica 语句 ， 图 形 如 图 6-5。 
ParametricPlot3D[{Sin[v]* Cosful, Sinfv]* Sin[u], Cos{[v]}, {u, 0, 2*Pi}, {v, 0, Pi}]; 


X=(8+3cosv)cosu 


画 出 贺 环 y=(8+3cosv)sinu ， we|03|,ve | 和 2 | 的 丽 形 。 


已 知 球面 参数 方程 


Zz=7 sinvy 
解 : 输入 以 下 Mathematica 语句 ， 图 形 如 图 6-6。 
ParainetricPIot3D[{(8 + 3*Cos[v])* Cos[u], (8 + 3*Cos[v])* Sinfu], 
7*Sin[v]}, {u, 0, 3*Pi/2}, {v, Pi/2, 2*Pi}]; 
X=COsusiny . 
实验 7 ee ,WEe [0,4r],ve [0.001,2] 的 图 形 。 
| z=cosv+In(tanv/2+u/5) 

解 : 输入 以 下 Mathematica 语句 ， 图 形 如 图 6-7。 
ParametricPlot3D[{ Cos[u]*Sin(v]; SinfulSin[v], Cos[v] + Log[Tan[v/2] + u/S]}， 

{u, 0, 4*Pi}, {v, 0.001, 2}]; 


1 
0.5r-0.50 
0 0.5 1 
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练习 7 任意 选取 一 组 (a,b,c,n)， 画 出 参数 曲面 
X=a(ll—k)cosnv(l+cosu)+c.:cosnv | 
y=a(l—k)sinnv(l+cosu)+c:siny ， k= 二 的 图 形 ， 并 观察 图 形 的 特征 。 
z=bk+a(l—k)sinv 


X=chtcosp 
练习 8 ” 画 出 参数 曲面 y=chtsing9 的 图 形 ， 并 观察 图 形 的 特征 。 
z=2t 


练习 9 画 部 分 球面 的 图 形 。 设 球面 参数 方程 为 
X=sinvcosu 
y=sinvsinu , we[0,2x],ve [0,7] 


Z=COSV 


(1) 夯 出 了 球面 ， 
(2) 画 出 上 半球 面 的 二 部 分 。 


6.3 ”空间 图 形 的 登 加 

时。 面 出 以 平面 曲线 y=cosx 为 准 线 ， 母 线 平行 Z 轴 的 柱 面 的 图 形 。 
解 : 写 出 这 一 曲面 的 参数 方程 为 

x=1t 

y=cost ，te[-rrl,yeR 

z=s 
取 参 数 s 的 范围 为 [0,8]。 输 入 以 下 Mathematica 语句 ， 图 形 如 图 6-8。 
ParametricPlot3DI[{ b Cos[t], s), {6 -Pi, Pi} 9 {s, 0, 8]]; 


画 出 由 旋转 抛物 面 z=x? + y 与 上 半球 面 z=1+ 1- 立 相交 所 围 成 的 几何 体 的 


图 形 。 

解 : 这 是 一 个 组 合 图 形 。 一 般 地 , 直接 画 出 两 者 的 图 形 组 合 在 一 起 即 可 得 到 所 画 几 何 体 的 图 形 。 
但 是 , 这 里 所 要 的 图 形 仅仅 是 两 个 曲面 图 形 的 一 部 分 , 因此 需要 有 选择 地 画 出 两 曲面 的 相应 部 
分 组 合 在 一 起 。 由 于 它们 的 交 线 在 平面 =1 上 ,方程 为 ?+y =1， 从 而 在 平面 z=1 上 的 参数 
方程 为 


X=Ccost 
| Ot NT 


y=sint “ 
X=rcost X=sinrcost 
相应 的 曲面 部 分 的 参数 方程 分 别 为 ?y=rsint ，te[0,rj,rs[01] 与 yy>=sinrsint ， 
z=r? z=1+cosr 
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re[om,re|o 引 | 输入 以 下 Mathematica 语句 ， 图 形 如 图 6-9。 


ti = ParametricPlot3D[{ Cos[u]j*Sin[y], Sin[u]Sin[v], Cos[v}}, {u,.0, 2*Pi}, {v, 0, Pi/2)}， 
PlotPoints -> 30]; 
t2 = ParametricPlot3D[{ (Cos[u] + D/2, Sin[u]/2, vy}, {u, 0, 2*Pi}, {v, 0, 1.1}， 
| PlotPoints -> 30]; 
Show[ttl t2]; 


: 面 出 曲面 z= VIL- 巡 -六 ，x+y 六 =x 及 xOy 面 所 围 成 的 立体 图 形 。 
解 ， 输入 以 下 Mathematica 语句 ， 图 形 如 图 6-10。 


gl1 = ParametricPlot3D[{ r*Cos[t], r*Sin[t], r^2}, {t, 0, 2*Pi}, {r, 0, 1}, 
PlotPoints -> 30]; 
g2 = ParametricPlot3D[{ Cos[t]*Sin[r], Sinft]Sinfr], Cos[r] + 1}, {t, 0, 2*Pi}, {r, 0, Pi/2}, 
PlotPoints -> 30]; 


Show[gl, g2]; 


图 6-8 图 6-9 图 6-10 
练习 10 画 出 曲面 z= 玉 + 关 和 z=1- 世 (村 科 12 ,| 让 科 1.2)， 观 察 这 两 个 曲面 的 交 线 ， 并 证 


明 此 交 线 在 xOy 面 上 的 投影 是 一 个 椭圆 。 

由 三 维 曲 线 的 参数 方程 直接 去 掉 其 中 一 个 表达 式 , 可 以 得 到 曲线 在 另外 两 个 变量 的 对 应 轴 
所 确定 坐标 面 上 的 正 投影 曲线 的 参数 方程 ; 由 一 般 方程 可 以 通过 消去 一 个 变量 而 得 到 另外 两 个 
变量 的 对 应 轴 所 确定 坐标 面 上 的 正 投影 曲线 的 一 般 方程 。 


X=10cost 
男 出 螺旋 线 1y=10sint ，teR 在 xOz 面 上 的 正 投影 曲线 的 图 形 。 
z=2t 
解 : 所 给 螺旋 线 在 xOz 面 上 的 投影 曲线 的 参数 方程 为 - ee ,输入 以 下 Mathematica 语句 ， 


形 如 图 6-11。 
ParametricPlot[{2t, 10 Cos[t]}, {t, -2Pi, 2Pi}]; 
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将 表示 曲线 的 方程 组 , 消去 其 中 一 个 变量 , 即 得 到 曲线 在 相应 于 这 一 变量 方向 上 的 正 投 影 
曲线 的 方程 ， 不 考虑 曲线 所 在 平面 , 它 就 是 投影 柱 面 方程 ， 对 于 参数 方程 ， 只 要 注意 将 方程 中 
并 不 存在 的 那个 变 元 看 成 第 二 个 参数 而 添加 第 三 个 方程 即 可 。 
实验 12 求实 验 11 中 螺旋 线 相 对 于 xOy 面 的 投影 柱 面 。 
x=10cost 

解 : 投影 柱 面 的 方程 为 4y=10sint， 输 入 以 下 Mathematica 语句 ， 得 投影 柱 面 的 图 形 如 图 
z=5 

6-12。 

gL= ParametricPlot3D[{10Cos[t], 10Sin[t], 2¢}, {t, 0, 2Pi}]; 

g2 = ParametricPlot3D{{10Cos[t]}, 10Sin[{t], s}, {t, 0, 2Pi}, {s, 0, $}]; 


Show[gl, 82]; 
10t、 
人 10， 
5 | 
. 
QZ 
-10 -5 5 -3500 a 
-5 
-10 ~ 
图 6-11 图 6-12 
i z=2x: +3y’ 
练习 11 求 曲线 ({”。 ”，” ， ”相应 于 xOy 面 的 投影 柱 面 方程 。 
3x +Sy +7z =9 


6.4 常见 二 次 曲面 的 参数 方程 


X=asinusinv 


椭 球 面 1+y=bsinucosv ，wue [0,rl,ve[0,2r] 
z=ccosu 

X=ausinv 

椭圆 抛物 面 〈 部 分 ) 4y=bucosv ，ue[0,r],ve[0,2x] 
z=W 
EY 

双 曲 抛物 面 《 部 分 ) y=v ,ue[-4,4],ve [4,-4] 
d=30 7) 
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[x*=asecusiny 

单 叶 双 曲面 〈 部 分 ) 4y=bsecucosv ， we | |,ve[o,2] 
z=Ctanu 
X= aVi -isinyv 

双 叶 双 曲 面部 分 ) 47= 欠 性-1cosy ，|ule[1,5], ve [0,2x] 


z=Cu 
X=UCOSY 
圆锥 面 〈 部 分 ) sy=usinv ，ue[-a.a],ve[0,27] 
z=u 


以 上 各 式 或 区 间 中 的 a,b,c,r 等 均 为 正 数 ， 请 读者 选择 不 同 的 值 作出 它们 的 图 形 。 
Mathematica 不 但 能 产生 静态 的 图 像 ， 而 且 能 产生 动态 的 图 像 ， 即 “动画 ”。 我 们 可 以 借助 
于 “ 动 男 ” 更 好 地 研究 空间 曲面 的 性 质 。 


Ry 3 用 动画 演示 由 曲线 y=sinz,ze [0,z] 绕 z 轴 旋 转产 生 旋转 曲面 的 过 程 。 
解 : 该 曲线 绕 z 轴 旋转 所 得 旋转 曲面 的 方程 为 x + y* =sin? z ， 其 参数 方程 为 


X=sinzcosu 


y=sinzsinu ， ze[0,r],xe[0,2zr] 


Z = 了 Z 
输入 以 下 Mathematica 语句 ， 即 可 得 到 连续 变化 的 30 幅 图 形 。 
For[i = 1, i <= 30, i++, 
ParametricPlot3D[{Sin[z]*Cos[u], Sin[z]*Sin[u], 2}, {z, 0, Pi}, {u, 0, 2*Pi*i/30}, 
AspectRatio -> 1, AxesLabel -> {"X'', "Y", "2"}]] 


记 玲 读 y=0,y=1 的 方 福 二 ， 医 套 振 动 的 函数 取 为 
MK YL) = 守法 l (+cosnm)l COS mn) sin(nnx) sin(mny): -COS(Vm’ + nnt) 


m=] n=] 
其 中 1 为 参数 ， 作 出 图 形 随 1 的 变动 而 引起 薄膜 振动 的 动画 。 
解 : 初始 位 置 是 u (x, y, 0)。 通 过 上 的 不 同 值得 到 多 幅 画 面 ， 然 后 将 这 些 图 形 连 续 地 一 张 张 显示 
出 来 ， 即 可 达到 运动 的 动画 效果 。 请 读者 自己 上 机 输入 以 下 Mathematica 语句 实践 。 
<< Graphics Animation ;Clear[x, y, 9 m, n]; 
u[x ,y_ ,ft ] := 
Sum[16*(1 + Cos[n*Pi])*(1 - Cos[m*Pi])*Sin[n*Pi*x]*Sin[m*Pi*y]* 
CosISqrt[m 人 2 + n^2]*Pi*t/(m^2*n^2*Pi^2), [mi 1, 4}, (np 1, 4}] 
Animate[Plot3D[u[lx, y, t], {x, 0, 1}, {y, 0, 1}, PlotRange -> {-8, 8}], {t, 0, 1.75, 0.25}] 


练习 12 观察 二 次 曲面 族 z=x? +y +key 的 图 形 。 特 别 注意 确定 的 这 样 一 些 值 ， 当 经 过 
这 些 值 时 ， 曲 面 从 一 种 类 型 变 成 了 另 一 种 类 型 。 
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实验 七 “多 元 函数 微分 学 


本 实验 的 目的 是 将 二 元 函数 可 视 化， 利用 其 图 形 来 进一步 理解 二 元 函数 的 代数 性 质 和 几 
何 性 质 ， 并 利用 图 形 进一步 理解 多 元 函数 的 极 值 。 

7.1_ 二 元 函数 的 可 视 化 

二 元 函数 f(x,y) 的 可 视 化 有 两 种 方式 : 

(1) 在 姜 中 画 出 它 的 图 形 ， 即 点 集 {(x;y,z)|z= 了 (x, 7)}; 

(2) 在 民 中 画 出 它 的 等 高 线 图 ， 即 曲面 z= f(x) 与 平面 z==C 相交 的 曲线 ， 也 称 为 等 值 
线 。 具有 以 下 特点 : @D 高 度 相同 的 点 在 同一 条 等 高 线 上 ，@) 等 高 线 图 上 亮度 越 高 的 地 方 ， 所 对 
应 的 曲面 相应 之 处 就 越 高 。 
0 
解 ， 输入 以 下 Mathematica 语句 ， 得 到 图 形 如 图 7-1， 改 变 视点 和 范围 ， 得 到 图 形 如 图 7-2。 
f= y*(1 - U(x*2 + y*2)); Plot3D[f, {x, -2, 2}, {y, -2, 2]]; 


Plot3DI[f, {x, =1.5, 1.5}, {y, -1.5, 1.5}, PlotPoints -> 35, 
AxesLabel -> {"x", "y", "2z"'), ViewPoint -> {2, 0, 2}, PlotRange -> {-5, 5}]; 


)，(x, 了) 去 (0,0) 的 图 形 。 


实验 2 画 出 函数 了 (x,y) = -Jz 的 等 高 线 图 ， 并 现 察 当 Goy) 一 (0.0) 时 的 极限 情况 。 

解 : 输入 以 下 Mathematica 语句 ， 画 出 f(x,y) 及 其 等 高 线 图 如 图 7-3。 

Clear[fl;f{x_,y_]= x y/(X^2 + y2); 

pl = Plot3D[Iffx, y], {x, -2, 2}, {y, -2, 2}, PlotPoints -> 30, DisplayFunction -> Identity]; 

cl = ContourPlot[f[x, y], {x, -2, 2}, {y, -2, 2}, ContourShading -> False, Axes -> . 
Automatic, AxesOrigin -> {0, 0}, PlotPoints -> 60, DisplayFunction -> Identity]; 

Show[GraphicsArray[{pl, c¢1}]]; pts = Table[Random[Real, {-0.1, 0.1}], {i, 1, 10}, {2}] 

g[{x_, y_}] = {x, y, ffx, y]}; 
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TableForm[Map[g, pts], TableHeadings -> {None, {” Xx",” y"," ffIx,y]"}}] 
从 图 7-3 中 可 以 看 出 ”lim f(x,y) 不 存在 。 


(x,y) 300,0) 


练习 1 画 出 下 列 二 元 函数 的 图 形 以 及 它们 的 等 高 线 图 。 


@ f= ye ©) fry) = 
+y +1 
(Cc) f(x,y) = sin xy (d) f(x,y)=sin Vx +y’ 
机 观察 lim -一 的 极限 ， 
(7.3 00,0) x +y 


解 : 输入 以 下 Mathematica 语句 ， 画 出 等 值 线 图 形 如 图 7-4。 
flx_,y_] = 2*x^3/(x^2 + yY^2); cont = {-0.8, -0.4, -0.2, -0.1, -0.05, 0.05, 0,1, 0.2, 0.4, 0.8}; 
ContourPlot[f[x, y], {xX; -1, 1}, fy -1, 1}, Contours -> cont, 

PlotPoints -> 50, ColorFunction -> Hue]; 
Print[" 代 xy] = "", ftx, y]]; Print[""]; Print[f{x, y] ==¢," where"];Print["'c = "', cont] 
由 图 7-4 可 知 lim 2 


(p00) x 十》 


7.2 ”二 元 函数 的 梯度 


设 函 数 z = f(x,y) 在 平面 区 域 D 内 有 一 阶 连续 偏 导 数 ， 则 此 函数 在 点 P(x,y) 处 的 梯度 为 
grad fp = Hit 
沿 梯 度 方向 的 方向 导数 达到 最 大 值 ， 及 梯度 方向 是 函数 fx,y) 在 这 点 增长 最 快 的 方向 。 梯 
度 方向 与 等 高 线 的 法 线 方向 相同 。 
设 工 为 一 平面 曲线 , 如 果 工 上 任意 一 点 处 的 切线 与 函数 z= f(x, 在 该 点 处 的 梯度 位 于 同 
一 直线 上 ， 则 称 工 为 z= f(x,y) 的 梯度 线 。 
可 以 以 等 长 的 折线 段 来 模拟 函数 的 梯度 线 。 设 步 长 为 [; 从 点 马 (w,y0) 出 发 ， 沿 梯度 方向 
前 进 t 得 到 点 (%; 和 %)， 即 
石 三 区 十 大 CD) 
J eo 


再 从 点 (%,%) 出 发 , 沿 着 梯度 方向 前 进 t 得 到 点 甩 (%,,y,)， 依 次 得 到 一 系列 点 , 连接 这 些 点 ， 
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即 可 得 到 梯度 线 的 图 形 。 


实验 赚 ” 作 出 函数 (x,y) = ee ?2 的 等 高 线 和 梯度 线 的 图 形 , 并 观察 梯度 线 与 等 高 线 的 关系 。 


解 : (1) 定义 函数 ， 并 作出 函数 f(x, y) 的 图 形 ， 输 入 以 下 Mathematica 语句 
f[x_, y_] = ES^(-(x^2 + 2 y^2)/10^4);Plot3DI[f{x, y], {x, -1.2, 1.2}, {y, -1.2, 1.2}]; 
结果 如 图 7-5。 

(2) 绘制 等 高 线 ， 输 入 以 下 Mathematica 语句 ， 结 果 如 图 7-6。 
tl = ContourPlot[flx, y], {x, -1.2, 1.2}, {y, -1.2, 1.2}, PlotPoints -> 50, 

ContourShading -> False]; 

(3) 绘制 梯度 线 。 输 入 以 下 Mathematica 语句 ， 结 果 如 图 7-7。 
fx[x_, y_] = Evaluate[DINTx yj xljfy[x_ ,y_ ] = Evaluate[DI[f[x, y], y]]; 
Xx0 = 1.0; y0 = 1.0; lamda = 0.01; a = x0; b = y0; 
Doru = a + lamda fx[a, b}/Sqrt[(fx[a, bl])^2 + (fyfa, b])^2]; 

v=b +lamda fy[a, b/Sqrtf(fx[a, b])^2 + (fy[a, bl)^2]; 
cn] =u; d[n] = Y; a = u; b = v, {n, 200}] 
data = Table[{cfnl], d[n]}, {n, 200]]; 
t2 = ListPlot[data, PlotJoined -> True, PlotStyle -> RGBColor[l, 0, 0]]; 
1 

0.8 
0.6 


0.4 
0.2 


02 04 06 0 
图 7-5 图 7-6 图 7-7 


(4) 同时 绘制 等 高 线 和 梯度 线 。 输 入 以 下 Mathematica' 语 名， 结果 如 图 7-8。 
Show[tl t2, AspectRatio -> Automatic, PlotRange -> Al]; 

(5) 观察 等 高 线 和 梯度 线 的 关系 ， 输 入 以 下 Mathematica 语句 ， 结 果 如 图 7-9。 
<< Calculus VectorAnalysis™ 
<< Graphics PlotField 
SetCoordinates[Cartesian[x, y, z]];u = E^(-(x^2 + 2y^2)/10^4); 
conplot = Show[tl, DisplayFunction -> Identity]; 
gradplot = Show[t2, DisplayFunction -> Identity]; 
t= PlotGradientField[u, {x, -1.2, 1.2}, {y, -1.2, 1.2}, DisplayFunction -> Identity]; 
Show[conplot, gradplot, t, DisplayFunction -> $DisplayFunction]; 
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练习 2 设 /e= 姑 + 和 2 六 -2 六， 求 出 上 ， 户 ， 户 户 ， 户 ， 并 作出 函数 的 图 形 ， 从 图 上 


观察 偏 导数 的 几何 意义 。 

练习 3 ”作出 函数 z= 巡 一 Y 的 等 高 线 和 梯度 线 。 

更 鸡 呈 ”在 同一 坐标 面 上 作出 wx, y) =x(l+ Fi 和 vx,y)=y(1- 

图 ， 并 给 出 它们 之 间 的 关系 。 

解 ， 输入 以 下 Mathematica 语句 ， 作 出 它们 的 图 形 如 图 7-10。 

<< Calculus VectorAnalysis™ 

<< Graphics PlotField 

SetCoordinates[Cartesian[x, y, z]]; 

check[u_ ,y ] := {Grad[ul[[1]] - Grad[v}[(2]], Grad[v][[1]] + Grad[uj[[2]} 

u=x(1 + (x^2+y’2)); v= y( - (x^2 + y 人 2)); 

check[u, v] // Simplify 

ugradplot = PlotGradientField[u, {x, -2, 2}, {y, -2, 2}, DisplayFunction -> Identity]; 

uplot = ContourPlot[u, {x, =2, 2}, {y, -2, 2}, ContourStyle -> GrayLevel[0], 
ContourShading -> False, DisplayFunction -> Identity, 
Contours -> 40, PlotPoints -> 40]; 

21 = Show[uplot, ugradplot, DisplayFunction -> $DisplayFunction]; 

veradplot =PlotGradientField[y, {x, -2, 2}, {y, -2, 2}, DisplayFunction -> Identity]; 

vplot = ContourPlot[v, {xX, -2, 2}, {y, -2, 2}, ContourStyle -> GrayLevel[0.7], 
ContourShading -> False, DisplayFunction -> Identity, 

Contours -> 40, PlotPoints -> 40]; 

g2 = Show[vplob veradplot, DisplayFunction -> $DisplayFunction]; 

g3 = Show[uplot, vplot, DisplayFunction -> $DisplayFunction]; 

24= Show[ugradplot, vgradplot, DisplayFunction -> $DisplayFunction]; 


x 


1 ,x>0 的 等 高 线 
+y 


TA 


a 


图 7-10 


其 中 (a) ux,» 的 梯度 与 等 高 线 图 ，(b) vx,y) 的 梯度 与 等 高 线 图 ; (c) 


线 图 ，(d) “xy 与 vix,») 的 梯度 图 。 


从 图 7-10 中 可 以 看 出 它们 的 等 高 线 是 一 族 正 交 曲线 。 事 实 上 ， 有 


Ou_ 》 __% 


ox x+ty dy " dy x +y ox 
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有 


Faun 


DE 


ux,y) 与 v(x,y) 的 等 高 


且 Vu:Vv=0， 它 们 满足 拉 普 拉 斯 方程 
du ou_ov Ov, 
Me By dr oy 
练习 4 在 同一 坐标 平面 上 作出 以 下 函数 的 等 高 线 图 。 
(1) xp 力 = 和 大 一 六 ，v( 妨 =2x 


0 


O) nw) =3In( +y), v(x, y) =arctan> 
人 


并 观察 每 一 组 函数 的 等 高 线 图 有 什么 特点 ， 试 从 理论 上 解释 这 一 现象 。 
7.3 多 元 函数 


设 三 元 函数 fx yz) 在 其 定义 域内 具有 一 阶 连 续 偏 导数 ，F (xyz)=C《〈C 为 常数 ) 称 为 


等 高 面 〈 也 称 为 等 值 面 )。 
实验 6 画 出 函数 (x,y,z)=z? 一 记 一 y? 的 等 高 面 。 
解 : 输入 以 下 Mathematica 语句 ， 得 函数 的 等 高 面 如 图 7-11。 
<< Graphics ContourPlot3D° 
人 = Z^A2 - XA2 - YA2; 
cp3d = ContourPlot3DI[f, {x, -1.1, 1.1}, {y, -1.1, 1.1}, {z, =2, 2}, 
Contours -> {1.0}, Axes -> True, AxesLabel -> {"x","y", "z"}]; 
类 似 于 二 元 函数 梯度 三 元 函数 的 梯度 定义 为 
of or or | 9f, of ., of 
Vf=| 一 ,二 ,二 |= 二 i+ 二 j+ 二 上 
EG 3 | dx Dy/ a 
函数 f(x,y,z) 在 方 同 w= (wo,wW,w,) 的 方向 导数 定义 为 
D, f (x0, Yo,20)= Vf (Xo, Yo, zo) *u 
d 
=— f(x + tu , yo ttu ,zo t+ tu,) 
dt 1=0 
均 验 区 画 出 函数 /f(x,y,z)=z? 一 x 一 y 的 梯度 向 量 。 
解 : 输入 以 下 Mathematica 语句 ， 得 结果 如 图 7-12。 
<< Graphics`ContourPlot3D” 
<< Graphics PlotField3D. 
<< Calculus VectorAnalysis` 
SetCoordinates[Cartesian[x, y, z]]; 人 = Z^2 - XA2 - YA 人 2; 
cp3d = ContourPlot3DI[f; {x, -1.1, 1.1), {y, -1.1, 1.1}, {z, -2, 2}, Contours -> {1.0), 
Axeées -> True, AxesLabel -> {"x", "y", "2z"}]; 
vecplot3d = PlotGradientField3D[f, {x, -1.1, 1.1}, {y, -1.1, 1.1}, {2z, -2, 2}, 
PlotPoints -> 3, VectorHeads -> True]; 
Show[vecplot3d, cp3d]; 
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图 7-11 
练习 5 画 出 下 列 函 数 的 等 值 面 和 梯度 向 量 ， 并 观察 它们 之 间 的 关系 ， 试 从 理论 上 说 明 这 一 现 
象 。 
(1) flx,y,2)=x +y +z ， f=1 
(2) f(x,y,2)=x -3xy +z ， f=0 
(3) f(x,y,72)= Xz » f=1 


7.4 ”曲面 的 切 平 面 与 法 线 


曲面 z= f(x,y) 在 (x ,y0) 处 的 切 平面 方程 为 
fm 加) (xX—H)+t fm ,0)(y-y0)=2-20, 
即 z= f(x%0, 0)+ fo yo)X—N)+ f (X70)(y ~ y0). 
曲面 z= f(x,y) 在 点 (x,y6) 处 的 法 线 方程 为 


fsy0) f(x0, yo0) -1l 
其 参数 方程 形式 为 
X= 
y= y+ f(x NX—N)/ fm0, yo0) 
z=f(%,y0)—(x—%)/f. xo, y0) 
求 出 曲面 z=2x 十 产 在 点 (1,1) 处 的 切 平面 、 法 线 方程 ， 并 画 出 图 形 。 


x=rsinu/V2 
解 : (1) 画 出 曲面 的 图 形 。 曲 面 的 参数 方程 为 和 y=rcosu ,ue[0,27n],re[0,2]。 


z=r? 


输入 以 下 Mathematica 语句 ， 结 果 见 图 7-13。 

Clear[f];f[x_, y_]=2x*2+y 2;p1 = Plot3D[ffx;yy), {x, -2, 2 {y; -2, 2}]; 

g1 = ParametricPlot3D[{r*Sinfu}J/Sqrt[2.]; r*Cos[ul, r^2}), {u, 0, 2*Pi}, {x, 0, 2}]; 
(2) 画 出 切 平面 的 图 形 。 输入 以 下 Mathematica 语句 : 

a = D[ffx, y], Xx] /. {x -> 1, y -> 1};b = D[ffx, y], y] /. {x -> 1, y -> 1); 

p[x_,y_]=fl, 1]+a(x- D+b(y-D;g2=Plot3D[p[lx, y), {x, -2, 2), {3, -2 2}]; 
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切 平面 方程 为 2x +y-1=0， 图 形 如 图 17-14。 
(3) 画 出 法 线 的 图 形 。 以 下 Mathematica 语句 ， 图 形 如 图 7-14。 
ly[x_] = 1 +b (x- 1)/a; lz[x_] =f{1, 1] - (x - 1)/a; 
g3 = ParametricPlot3D[{x, ly[x], lz[x1}, {x, -2, 2}]; 
Show[pl g2, g3, AspectRatio -> Automatic, ViewPoint -> {-2.530, -1.025, 2.000}]; 


图 7-13 图 7-14 
”练习 6 画 出 下 列 曲面 、 曲 面 在 指定 点 处 的 切 平面 和 法 线 的 图 形 。 
(1) z=2x +y*， 点 (1,1,3) 
(2) z=6， 点 (1,2,3) 
(3) z= 攻 +2xy ， 点 (1,2,5) 
7.5 多 元 函数 的 极 值 
本 节 主 要 考虑 多 元 函数 的 极 值 问题 。 
7.5.1 无 条 件 极 值 
具有 二 阶 连 续 偏 导数 的 函数 z = f(x,y) 的 极 值 求法 为 : 
f(x,y)=0 
f(x,y)=0 
(2) 对 每 一 个 驻 点 (x, yo)， 求 得 二 阶 偏 导数 ， 
A=f,(m,y0), B=f,,(m,y0), C= fm, Yo) 
(3) 对 每 一 个 驻 点 (x,y0) ,计算 判别 式 4C 一 B? 的 值 。 
@ A4C-BY>0， 车 和 A>0，f(%,y0) 为 极 小 值 ，A <0， 则 (wo,%‰) 为 极 大 值 ; 
@ 4C--B =0 失 效 ; 
@ 4C-8 <0，f(mw,yo) 不 是 极 值 点 ， 称 为 鞍点 。 
以 下 以 二 元 函数 为 例 进 行 实验 。 
实 驳 四 求 出 函数 f(x7)= 允 -4z+ 六 的 极 值 ， 并 画 出 函数 (xy) 的 等 高 线 、 驻 点 以 及 
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(1) 凶 方 各 组 ， 求 得 一 切实 数 解 ， 即 可 求 得 一 切 驻 点 。 


-f(x,y) 的 梯度 向 量 的 图 形 。 
解 ， 输入 以 下 Mathematica 语句 : 
<< Graphics`PlotField -~ 
f=x^4-4xy+y’2;FindMinimum[f, {x, 1}, {y, 1}] 
conplot = ContourPlot[f, {x, =2, 2}, {y, =3, 3}, ContourShading -> False, 
PlotPoints -> 100,Contours -> {-4, -2, 0, 2, 4, 10, 20}]; 
fieldplot = PlotGradientField[-f, {x, -2, 2}, {y, -3, 3}, ScaleFunction -> (Tanh[#/5] &)]; 
critptplot =ListPlot[{{=Sqrt[2], -2 Sqrt[2]}, {0, 0}, {Sqrt[2], 2Sgqrt[2]}}, 
PlotStyle -> {PointSize[0.03]}]; 

Show[conplot, fieldplot, critptplot]; 
得 f(x,y) 的 最 小 值 为 f(1.41421,2.82843) = 一 4 。 图 形 如 图 7-15。 
练习 7 求 函 数 (x,y)=3xy+ 一 3 -3y?+2 的 极 值 ， 并 画 出 函数 f(x,y) 的 等 高 线 、 驻 点 
以 及 一 f(x,y) 的 梯度 向 量 的 图 形 ， 试 给 出 你 的 结论 。 
实验 出 0 设 有 二 元 可 导 函 数 f(x,y)=-(x* -地 一 (x?y 一 x 一])*， 证 明 它 仅 有 两 个 极 大 值 点 而 

没有 极 小 值 点 ， 然 后 画 出 (x,y) 的 图 形 ， 从 图 上 观察 出 现 这 一 现象 的 原因 ， 并 与 

一 元 函数 的 结论 相 比较 。 
解 : (1) 求 极 值 。 输 入 以 下 Mathematica 语句 : 
Clearl[f];flx_, y_] = -(x^2 - 1)^2 - (x^2*y - x - 1)^2; 
Solve[{D[fTx, y], x] == 0, DIffx, y], y] == 0}), {x, y}] 
得 驻 点 为 (-1,0)，(1,2)， 且 f(-1,0)=f(1,2)=0。 显 然 这 两 点 是 最 大 值 点 ， 从 而 这 两 点 必 是 极 
大 值 点 。 由 于 函数 已 没有 其 它 的 驻 点 ， 因 而 它 也 不 可 能 有 极 小 值 点 。 

(2) 作出 函数 (x, y) 及 其 等 值 线 的 图 形 。 输 入 以 下 Mathematica 语句 ， 图 形 如 图 7-16。 
Plot3D[f{x, y], {x, -2, 2}, {y, -1, 4}, PlotRange -> {-4, 0}, PlotPoints -> 30]; | 
Pilot3D[f[x, y], {x, -2, 2}, {y, -1, 4}, PlotRange -> {-4, 0}, 
PlotPoints -> 30, ViewPoint -> {2.504, -2.10s, 0.867}]; 

ContourPlot[f[x, y], {x, -2, 2}, {y, -1, 4}, ContourShading -> False, 


Contours -> 30, PlotPoints -> 60]; 


图 7-16 


通过 这 两 个 最 高 点 作 垂直 xOy 面 的 截面 ， 截 立体 所 得 的 截 线 上 存在 最 低 点 ， 但 这 最 低 点 
却 不 是 整个 图 形 的 局 部 最 低 点 。 
而 对 一 元 函数 而 言 ， 如 果 有 有 限 个 驻 点 ， 则 在 两 个 极 大 值 点 之 间 必 存在 极 小 值 点 ; 但 这 个 
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结论 对 二 元 连续 函数 不 成 立 。 

设 函 数 f(x,y) =3xe’ -如 -ep ， 证 明 它 有 叭 -- 驻 点 ， 且 此 驻 点 为 极 大 值 点 ， 但 此 函 
数 无 最 大 值 点 ， 然 后 画 出 f(x,y) 的 图 形 ， 夫 图 上 观察 出 现 这 一 现象 的 原因 ， 并 与 一 
元 函数 的 结论 相 比 较 。 

解 ， (1) 求 极 值 。 输 入 以 下 Mathematica 语句 ， 

Clear{fl; f{x_,y_1=3xE’y -x’3.E^(3y); 

Solve[{D[f{x, yl, xl == 0, D[f{x, y], y] == 0}, {x, y}] 

DI[flx, yl {x, 2}1*D[fTx, yl] {y, 2}] - (DIE y], x, yD)A27 {x -> 1, y -> 0} 

D({flx, yl, {x, 2}1/. {x -> 1,y -> 0} 


得 唯一 驻 点 (1,0)， 在 该 驻 点 处 有 ff,, -f=27>0, f=-b<0， 故 该 驻 点 为 极 大 值 点 。 


(2) 作出 函数 f(x,y) 的 图 形 ， 输 入 以 下 Mathematica 语句 ， 图 形 如 图 7-17。 
Plot3D[flx, y], {x, -3, 3}, {y, -4, 2}, PlotRange -> {-100, $5), 

PlotPoints -> 30, ViewPoint -> {1.571, -2.901, 0.867}]; 
Plot3DI[f[x, y], {x, -3, 3}, {y, -5, 3}, PlotRange -> {-10, 5), 

PlotPoints -> 40, ViewPoint :> {2.631, -1.943, 0.867}, ClipFill -> None]; 
从 图 形 上 可 以 看 出 ， 全 管 该 函数 在 (1 ,0) 处 有 极 大 值 ， 但 它 的 最 大 值 却 不 存在 。 
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图 7-17 

而 对 一 元 函数 而 言 ， 如 果 有 唯一 驻 点 ， 且 该 点 是 极 大 《小 ) 值 点 ， 则 此 极 大 《小 ) 值 点 必 
是 函数 的 最 大 《小 ) 值 点 ， 但 这 个 结论 对 二 元 连续 函数 不 成 立 。 

从 以 上 两 个 实验 可 见 , 由 于 多 元 函数 自 变 量变 化 的 复杂 性 ， 使 多 元 函数 的 极 值 与 一 元 函数 
的 极 值 出 现 了 不 同 的 现象 。 
练习 8 设 f(x,y)=10xy-5x -4y* x-2y’。 

(1) 求 出 f(x,y) 的 所 有 驻 点 ， 并 判断 这 些 驻 点 是 否 为 极 大 值 点 ; 

(2) 观察 函数 z= f(x,y) 的 等 高 线 ; 圣 点 以 及 梯度 向 量 的 图 形 ， 并 给 出 你 的 结论 ; 

(3) 画 出 函数 z= .f(x,y) 的 图 形 ， 从 图 上 观察 最 高 点 和 鞍点 的 情况 。 


7.5.2 条 件 极 秆 


要 寻求 目标 函数 f(x;y) 在 约束 条 件 g(x;y)=0 下 的 极 值 问题 称 为 条 件 极 值 求 解 条 件 极 值 
的 有 效 方法 为 拉 格 朗 日 对 数 法 。 
设 函 数 fxsy) 与 g(x;y) 具有 连续 的 偏 导数 ， 作 拉 格 朗 日 函数 
L(x,y,A)= f(x,y)+AD(x,y) 
如 果 x= 为 ,y= 各 是 方程 组 L, =0,L,=0,L =0， 即 
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f(t)y)+A9.(x,y)=0 

户 (x,y)+4A9, (x,y)=0 

p(xy)=0 
的 解 ， 那么 点 (x y0) 是 目标 函数 f(x,y) 在 约束 条 件 g(x,y)=0 下 的 可 能 极 值 点 。 
时 求 出 函数 f(x,y)=x+4y’ 在 约束 条 件 x*+4y? =1 下 的 最 值 。 


eg +4y =1 的 参数 方程 为 
I 


下 
1)=—sint 
y(t) > 


f(x,y) 在 椭圆 x*Y+4y? =1 上 的 参数 方程 为 
X(t)= cost 
y(1) = $sint 
z(t) = f (cost,Jsint) 、 


输入 以 下 Mathematica 语句 ， 分 别 作 出 f(x 办 = 妇 二 47 和 | +47 =1 的 图 形 如 图 7-18。 


ppl = ParametricPlot3D[{Cos[t], Sin[tl/2., 0}, {b 0, 2 Pij];ffx_,y_ ]= x^2 +4y’3; 

pp2 = ParametricPlot3D[{Cos[t], Sin[t]/2., ffCos[tj, Sin[t}/2.]}, {b 0, 2 Pi}, 
DisplayFunction -> Identity]; 

Show[ppl, pp2, BoxRatios -> {1, 1, 1}, DisplayFunction -> $DisplayFunction] 


从 图 7-18 中 可 看 出 f(x,y) = 尖 +4y 在 约束 条 件 x*+4y? =1 下 有 最 值 。 根 据 拉 格 朗 日 乘 数 
法 , 求 得 最 大 值 为 FtL0) =1, 最 小 什 f(0—7) -3 ,输入 以 下 Mathematica 语句 , 画 出 f(x,y) 


与 g(x%,】)=x?+4y? -1 的 等 高 线 图 如 图 7-19。 
g[x_,y_] =x^2+4y’2. 1;dfx = DIflx, y], x]; 
dfy = DI[ ffx, y], yl;dgx = D[g[x, y], x]; dgy = DIg[x, y], y}; 
eql = dfx ==Lambda dgx; eq2 = dfy == Lambda dgy;eq3 = g[x, y] == 0; 
extpoints = Solve[{feql, eq2, eq3}, {x, y, Lambda}] 
TableForm[{x, y, ffx, y]} /. extpoints, TableHeadings -> {None, {"x", "y", "ffx,y]"'}}] 
cpl = ContourPlot[g[x, y], {x, -2, 2}, {y, -2, 2},Contours -> {0}, PlotPoints -> 60, 
ContourShading -> False, Frame -> False, Axes -> Automatic, 
ContourStyle -> Dashing[{0.01}], AxesOrigin -> {0, 0 
cp2 = ContourPiot[ffx, y], {x, -2, 2}, {y, -2, 2},Contours -> 15, PlotPoints -> 60, 
ContourShading -> False, PlotRange -> {-2, 2}, Frame -> False, 
Axes -> Automatic, AxesOrigin -> {0, 0}, DisplayFunction -> $DisplayFunction]; 
Show[cp], cp2, PlotRange -> {{-2, 2}, {-2, 2}}, DisplayFunction -> $DisplayFunction]; 


从 图 7-19 中 可 看 出 最 值 出 现在 f(x,y) 与 g(x,y) 等 高 线 相 切 的 点 处 。 
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(所 TS 
fast 


2 SSSSSS、 


图 7-18 图 7-19 
练习 9 试 解释 最 值 出 现在 f(x,y) 与 g(x,y) 等 高 线 相 切 的 点 处 这 一 现象 。 
练习 10 求 下 列 函 数 的 约束 条 件 下 的 最 值 。 

(a) f(x,y)=2x+y, x +4y’ =1 
(b) f(x%y) =x +y ,x +y =1 
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实验 八 ， 多 元 函数 积分 学 


. 本 实验 的 目的 是 加 深 理解 重 积分 的 概念 及 其 几何 意义 ,以 及 以 平面 替代 曲面 的 思想 ,直观 
了 解 一 些 常 见 图 形 的 投影 区 域 。 


8.1 二 重 积分 的 概念 
二 重 积分 本 质 上 是 一 个 特殊 和 式 的 极限 ， 即 
jf yao = bm Y f(Ao, 


从 图 形 的 角度 理解 Ne +y) Hxdy, D:[-1,1]x[-=1,1]。 


解 ， 输入 以 下 Mathematica 语句 ， 得 到 一 系列 图 形 如 图 8-1。 
Clear[f];f[x_,y_]=1.-(x*2+y^2)/4.;a=-1.;b=1,;c=.-1.;d=1.; 
Step = {2, 1, 0.5, 1/3, 0.2};g1 = Plot3D[f[x, y], {x, a, b}, {y, ec d}]; 
For[lk = 1, k < 6, k++, stepl = step[[k]]; step2 = step[[k]]; 
m= (b - a)/stepl; n = (d - ce)/step2; gg = {}; 
txyz = Flatten[ Table[{x, y, 人 fx y]} // N, {x, a, b, steplj, {y, ¢, dy step2}], 1]; 
For[j = 1,j <=n, j++, ss = Gj - 1)*m; 
Forli = 1,i<= m,i++, z= (txyz[[i + j= 1+ss, 3]] + txyz[[i +j + ss, 3]] + 
, txyz[{i + j + m + ss, 3]] + txyz[[i +j+m + 1 + ss, 3]])/4; 
ppl = {txyz[[i +j- 1 + ss, 1]], txyz[[i + j- 1 + ss, 2]], 0}; 
pp2 = {txyz[[i +j + m + 1 + ss, 1]], txyz[[i + j + m + 1 + ss, 21], fz)}; 
gg = Append[gg, Graphics3D[Cuboid[ppl, pp2]]]]]; 
Show[gl, gg, PlotRange -> {{a, b}, {c, d}, {0, 1}}]] 


60 


练习 1 从 图 形 的 角度 理解 [xydxdy , D:[-b1]x[-11]。 


8.2 ”空间 图 形 分 析 与 投影 区 域 的 确定 


在 三 重 积分 中 , 由 于 积分 区 域 是 立体 图 形 ; 我 们 可 以 借助 于 图 形 帮助 确定 化 为 累 次 积分 的 
上 上、 下限。 绘制 曲面 


X= Xx(u,v) 
y=yuUv), Ue [hn Uma ls VE [Vos Vax ) 
z= z(u,v) 


在 坐标 面 的 投影 的 Matheniatica 命令 分 别 为 : 
绘制 曲面 在 yOz 坐标 面 上 的 投影 ， 将 x 设 为 常数 a， 即 
ParametricPlot3D[{ayyfuyvj,ztoyv]),{0,0min,0maxj,{V,vmin,vmax}, 选 项 ] 
绘制 曲面 在 zOx 坐标 面 上 的 投影 ， 将 y 设 为 常数 bp， 即 
ParametricPlot3D[{xfuvjbzfuvjyfuuminumaxj,{fvyminvmax}, 选 项 ] 
绘制 曲面 在 xOy 坐标 面 上 的 投影 ， 将 》 设 为 常数 c， 即 
Parametricplot3D[fx[uv],yfuvjchuwuminumax},{vvymin,ymax}, 选 项 ] 


X=2sinucosy 
殉 验 昌 。” 西 出 梢 球面 1y=sinusinv ，we [0,x],ve [0,2x] ， 在 三 个 坐标 面 上 的 投影 。 


z=COSU 


解 : 输入 以 下 Mathematica 语句 ， 得 到 椭 球 面 及 其 在 三 个 坐标 面 上 的 投影 如 图 8-2。 
Clear[p, pl, p2, p3]; 
p= ParametricPlot3D[{{2 Sin[uj*Cosfvj, Sin[u]*Sin[v], Cos[u]}, {u, 0, Pi}, {v,0, 2 Pi}]; 
px = ParametricPlot3D[{-2, Sin[u]J*Sin[v], Cos[u}]}, {u, 0, Pi}, {v, 0, 2 Pi}, 
DisplayFunction -> Idqentity]; 
py = ParametricPlot3D[{2 Sinfu]*Cos[v], 1, Cos[u1}, {u, 0, Pi}, {v, 0, 2 Pi}, 
DisplayFunction -> Identity]; 
pz = ParametricPlot3D[{2 Sin[u]*Cos[y], Sinful*Sin[v], 1}, {u, 0, Pi}, {v, 0, 2 Pi}, 
DisplayFunction -> Identity]; 
Show[p, px, py, pz]; 
也 可 以 直接 求 出 曲面 在 各 坐标 面 上 的 投影 曲线 方程 ， 再 画图 。 
分 别 将 x=0,y=0,z=0 代 入 杭 球 面 方 程 ， 求 出 椭 球 面 分 别 在 y0z 面 、zOx 面 、xOy 面 上 投 
影 曲 线 的 方程 分 别 为 ; 


y+z =1 ， 即 [全 mw ， ye[o2r] 


Z=Siny 

2 =2 

ls a | ve [0,2x] 
z=sinv 

2 =2c0s 

3 ee ve[o,2r] 
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输入 以 下 Mathematica 语句 ， 分 别 作 出 投影 曲线 如 图 8-3。 

pxl = ParametricPlot[{Cos[v], Sin[v]}, {v, 0, 2 Pi}, AxesLabel -> {"Y", "2"}), 
AspectRatio -> Automatic, DisplayFunction -> Identity]; 

pyl = ParametricPlot[{2 Cos[v], Sin[v]}, {v, 0, 2 Pi}, AxesLabel -> {"X", "2"}, AspectRatio -> 
Automatic, DisplayFunction -> Identity]; 

pzl = ParametricPlot[{2 Cos[v], Sin[v]}, {v, 0, 2 Pi}, AxesLabel -> {"X", "Y''}, AspectRatio -> 
Automatic, DisplayFunction -> Identity]; 

Show[GraphicsArray[{pxl, pyl, pz1}]] 


图 8-2 图 8-3 
画 出 双 曲 面 x* +y +z?=1 在 三 个 坐标 面 上 的 投影 。 


X=chzcosD 
解 : 双 曲 面 的 参数 方程 为 1y= chzsinp ，ge [0,2r].。 输入 以 下 Mathematica 语句 ， 得 到 双 曲 面 
z= shz 


及 其 在 三 个 坐标 面 上 的 投影 如 图 8-4。 
Clear[p, pl, p2, p3] 
p = ParametricPlot3D[{2 Cosh[z]*Cos[phi], Cosh[z]}*Sin[phi], Sinh[z]}, {2z, -2, 2}, 
{phi, 0, 2 Pi}]; 
px = ParametricPlot3D[{-8, Cosh[z]*Sin[phi], Sinh[z]}, {z, -2, 2}, {phi, 0, 2 Pi}), 
DisplayFunction -> Identity]; 
py = ParametricPlot3D[{2 Cosh[z]*Cos[phi], 4, Sinh[z]}, {z, -2, 2}, {phi, 0, 2 Pi}, 
DisplayFunction -> Identity]; 
pz = ParametricPlot3D[{2 Cosh[z]*Cos[phi], Cosh[z]*Sin[phi], 4}, {z, -2, 2}， 
{phi, 0, 2 Pi}, DisplayFunction -> Identity]; Show[p, px, py, pz]; 


练习 2 分 别 画 出 以 下 曲面 及 其 在 三 个 坐标 面 上 的 投影 图 。 
(1) 圆柱 面 x? + y=1,-1<z<1; (2) x +y =4z,0<z<1 


画 出 上 半球 面 巡 + 冯 十 于 -了 与 加 锥 面 (z+1)’ = + 六 ) 的 组 合 图 形 在 xOz 与 xOy 
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面 上 的 投影 。 


2 
X=sinvcosu 
3 
解 : 上 半球 面 的 参数 方程 为 7=3sinvsinv ve[o2n],ve|o 节 |， 圆锥 面 的 参数 方程 为 


a 
3 


X=7Ysinu 
y=Ycosu ，ue [0,2x]。 输 入 以 下 Mathematica 语句 ， 得 到 组 合 曲面 及 其 在 xOz 面 、xOy 
z=3Y/2-1 


面 上 的 投影 如 图 8-5。 
pz = ParametricPlot3D[{2 Sin[u]*Cos[v]/3, 2 Sin[u]*Sin[v]/3, -1}, {u, 0,Pi/2}, 
{v, 0, 2 Pi}, DisplayFunction -> Identity]; 
pyl = ParametricPlot3D[{2 Sin[u]*Cos[y]/3, 1 2 /3Cos[u]}, {u, 0, Pi/2}, {v, 0, 2 Pi}, 
DisplayFunction -> Identity]; 
py2 = ParametricPlot3D[{r*Sin[u], 1, (3/2)*r - 1}, {u, 0, 2 Pi}, {r, 0, 2/3}, 
DisplayFunction -> Identity]; 
py = Show[pyl, py2];Show[p3, pz, py, ViewPoint -> {3, -1, 0}, DisplayFunction -> $Display 
Function]; 
师 及 器 出 由 := -y”,2r+3?-12-=0,z=0,z=0 所 图 成 的 立体 的 图 形 , 并 作出 其 在 xOy 
面 上 投影 区 域 的 图 形 。 
解 : 输入 以 下 Mathematica 语句 ， 得 所 围 成 立体 的 图 形 如 图 8-6。 
Clear[gl, g2, g3];g1 = Plot3D[-y^2/2, {x, -10, 10}, {y, -10, 10}, Shading -> False]; 
g2 = ParametricPlot3D[{x, 4 - 2*x/3, z}, {x, -10, 10}, {z, -10, 0}, Shading -> False]; 
g3 = ParametricPlot3D[{0, y, zj {y, -10, 10}, {z, -10, 0}, Shading -> False]; 
Show[g], g2, g3]; Plot[4 - 2*x/3, {x, -10, 10}]; 
2 2 
从 图 8-6 可 以 看 出 ,空间 立体 在 xOy 面 上 的 投影 是 由 曲面 z = 2x+3y-12=0 及 x=0 


在 xOy 面 上 的 投影 曲线 所 组 成 。 投 影 区 域 的 图 形 如 图 8-7。 


图 8-7 
画 出 由 曲面 z=x+y ,y=x ,y=1,z=0 所 围 成 的 立体 的 图 形 。 
解 : 输入 以 下 Mathematica 语句 ， 得 到 所 围 成 的 立体 的 图 形 如 图 8-8。 
Clear[lgl, g2, g3, 84]; 
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g1 = ParametricPlot3D[{u, v u^2 + Y^2j {u, -1, 1}), {v, -0.2, Sqrt[2]}， 

PlotRange -> {0, 2}, DisplayFunction -> Identity]; 
22 = ParametricPlot3D[{u, u^2, v}, {u, -1, 1}), {v, 0, 2}, DisplayFunction -> Identity]; 
. g3 = ParametricPlot3D[{u, 1 v}, {u, -1, 1}, {v, 0, 2.2}, DisplayFunction -> Identity]; 
24 = ParametricPlot3D[{u, v, 0}), {u, -1, 1}), {v, -0.2, 1}, DisplayFunction -> Identity]; 
Show[gl, g2, g3, g4, DisplayFunction -> $DisplayFunction]; . 
练习 3 分 别 画 出 以 下 空间 立体 的 图 形 。 


(1) 由 曲面 z==e*” ,z=0, 妈 + 吕 =4 所 围 成 的 立体 ; 
(2) 由 曲面 z=1+x+y,z=0,x+y=l1,xz=0,y=0 所 围 成 的 立体 。 

实验 f 通 出 球面 禄 + 六 +z =1 与 柱 面 x +y =x 的 交 线 。 

解 ， 输 入 以 下 Mathematica 语句 ， 同 时 显示 球面 和 柱 面 的 图 形 得 交 线 图 形 如 图 8-9。 
Clear[gl, g2, 23, g4] 

g1 = ParametricPlot3D[{Sinfu}*Cos[v], Sin[uj*Sin[v], Cos[u]}, {u, 0, Pi}, {v, 0, 2 Pi}, 

DisplayFunction -> Identity]; 

g2 = ParametricPlot3D[{UV2 + Cos[t]/2, Sin[t]/2, r}), {t, 0, 2 Pi {r, -1.2, 1.2), 
: DisplayFunction -> Identity]; 

Show[gl, g2, DisplayFunction -> $DisplayFunction]; 


1 1 
三 一 十 一 COSI 
2 2 
也 可 以 先 求 交 线 方程 和 y=3sint， te[-2n,2]: 
z=sin 纹 


输入 以 下 Mathematica 语句 ， 得 交 线 的 图 形 如 图 8-10。 
Clear[x, y, z, t, p2}];x[t_] = (1 + Cos[t])/2.;y[t_] = Sin[t]/2.;z[t_] = Sin[V2.]; 
p2 = ParametricPlot3D[{x[t], y[t], z[t]}, {t, -2*Pi, 2*Pi}]; 


050 05 


图 8-8 图 8-9 图 8-10 
练习 4 画 出 球面 如 + 交 +z2 = ea: 与 平面 x+y+z=0 的 交 线 。 


2 


上 的 投影 区 域 的 图 形 。 


实验 8 画 出 球面 必 +y*+z? =a? 含 在 柱 面 必 +y* =ax 内 部 的 曲面 图 形 ， 并 画 出 其 在 xOy 面 


解 : 不 妨 取 a= 1， 输 入 以 下 Mathematica 语句 ， 得 曲面 的 图 形 如 图 8-11 及 其 在 xOy 面 土 的 投 


影 区 域 如 图 8-12。 
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Clear[gl, g2, g3, 84] 
glL = ParametricPlot3D[{Sin[u]*Cos[v], Sin[uj*Sin[y]， Cos[u]}, {u, 0, Pi}, {Y, 0, 2 Pi}, 
DisplayFunction -> IJdentity]; 
£2 = ParametricPlot3D[{1/2 + Cos[t]/2, Sin[t}/2,7), {t, 0, 2 Pi}, {1, -1.2, 1.2}, 
DisplayFunction -> Identity]; 
pl = Showlgl, g2, DisplayFunction -> $DisplayFunction]; 
23 = ParametricPlot3D[{Sin[ul*Cos[v], Sin[uj*Sin[v], 0}; {u, 0, Pi}, {v; 0, 2 Pi}, 
; Shading -> False, DisplayFunction -> Identity]; 

g4 = ParametricPlot3D[{1/2 + Cos[t]/2, Sin[t]/2, 0}; {6 0, 2 Pi}, DisplayFuniction -> Identity]; 

p2 = Showlg3, g4, DisplayFunction -> $DisplayFunction]; 

gs = ParametricPlot[{Cos{v], Sin[v]}, {v; 0; 2 Pi}, AspectRatio -> Automatic; 
DisplayFunction -> Identity]; 

g6 = ParametricPlot[{1/2 + Cos[tH2, Sin[t]/2}, {t, 0, 2 Pi}, AspectRatio -> Automatic, 
DisplayFunction -> Identity]; 

p3 = Showfgs, g6, DisplayFunction -> $DisplayFunction]; 

Show[GraphicsArray[{fp2, p3}], DisplayFunction -> $DisplayFunction]; 


图 8-11 图 8-12 


8.3 - 默 比 乌 斯 带 
默 比 马 斯 (Mabius) 带 是 一 种 所 谓 的 单 侧 曲面 。 默 比 乌 斯 带 的 参数 方程 为 


X=r(t,v)cost 
y=r(t,v)sint ， 其 中 x(t,v)=a+tbvcos(112) ，a,b 为 常数 ，te [0,27],ve[-1,1]。 
z= bvsin(t /2) 


画 出 默 比 乌 斯 带 的 图 形 。 


图 8-13 ( 左 图 a=2,b5=1， 右 图 4a=3,b=1) 
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练习 5 任意 选取 参数 w p， 画 出 默 比 乌 斯 带 的 图 形 ， 并 观察 其 图 形 特点 。 


附 ”实验 9 的 Mathematica 程序 

<<Graphics Animation 

<<Graphics Shapes` 

Clear[Arrow,ShowMoebiusStrip] 

Arrow[{{x1 ,y1 ,zl },{x2_,y2 ,72 }}] := {Graphics3D[Linel{{x1,y1,z1},{x2,y2,z2}}]], 
Graphics3D[{RGBColor[1,1,0],PointSize[0.05],Point[{x1,y1,z1}]}], 
Graphics3D[{RGBColor[]1,0,0],PointSize[0.05],Point[{x2,y2,z2}]}]} 

Clear[F,ll,dd]}ll = 1; 

FI{{x1_,y1_,z1_},{x2_,y2_,z2_}}] := Block[ {x3,y3,z3,z4,len}, 

X3=(xl+x2)/2; y3=(y1+y2)/2; z3=(Z1+Z2)/2; 
2z4=Iffz2-z1==0,1/2, (x3*(x2-x1)+y3*(y2-y1))/(z2-z1)+z3 ]; len=Sqrt[X3^ 人 2+y3^2+(Z3-Z4)^2]; 
Hfz2-z1==0,{x3,y3,dd*]l}, dd = Iffyl>y2,-1,1]; {x3,y3,23}+ dd*llylen*y {x3, y3, z3-24}]] 
ShowMoebiusStrip[rl:,r2_,n_:r1*20] := Block[{L1,L2,p1)}, 
L1 = Block[{cphi, sphi, h, rs}, Table[rs = N[r2 Cos[Pi in]]; h = N[r2 Sin[Pi i/n]]; 
cphi = N[Cos[2Pi i/n]]; sphi = N[Sin[2Pi i/n]]; 
{{(rl + rs) cphi, (rl + rs) sphi， h}, {(rl - rs) cphi, (rl - rs) sphi, -h}}, {i,0,2n-1}]]; 
L2 = Map[({(#1[[11]+#1[[2]])/2,F[#11D&, L1]; 
pl = MoebiusStrip[rl,r2,n]; Table[ Show[Graphics3D[pl], Arrow[L2[[i+1]] ]， 
PlotRange->{{-(rl+r2),rl+r2},{-rl-r2,rl+r2},{-r2,r2}}],{ i, 0,2n-1}];] 
Show[Graphics3D[MoebiusStrip[2,1]]]; 
Show[Graphics3D[MoebiusStrip[3,1]]]; 


‘ny 


ShowMoebiusStrip[2,1,15] 
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实验 九 无 穷 级 数 与 函数 识 近 


本 实验 的 目的 是 体会 级 数 部 分 和 的 变化 趋势 ， 进 一 步 理解 级 数 的 判 你 法 ， 圭 级 数 部 分 和 
对 函数 的 逼近 以 及 进行 函数 值 的 近似 计算 ， 展 示 傅 里 叶 级 数 对 周期 函数 的 逼近 情况 。 
9.1 级 数 部 分 和 的 变化 趋势 


在 实验 二 中 ， 我 们 通过 图 形 能 够 清晰 地 显示 极限 的 概念 。 下 面 我 们 将 用 散 点 图 来 展示 级 
数 部 分 和 序列 的 变化 趋势 。 


观察 级 数 允 三 的 部 分 和 序列 的 变化 趋势 


解 : 级 数 的 部 分 和 为 5, = 六 二 。 输 入 以 下 Mathematica 语句 ， 得 变化 趋势 如 图 9-1。 级 数 和 的 


近似 值 为 1.64493 。 

sIn_] = Sum[Uk 人 2, {k, n}];data = Table[s[n], {n, 100}];ListPlot[data]; 
N[Sum[ Vk’2, {k, Infinity}]] 

N[Sum[U/k‘^2, {k, Infinity}], 40] 

练习 1 分 别 观察 以 下 级 数 部 分 和 序列 的 变化 趋势 。 


@) Ft 人 SATIVn) G) 六 mn- 
#=1 3 n=1 n=1 n+l 
> n .NN | 1 

Vr 0 2 9 2 而 


观察 调和 级 数 > 一 的 部 分 和 序列 的 变化 趋势 


解 ， 级 数 的 部 分 和 为 5, = 六 < 。 输 入 以 下 Mathematica 语句， 得 变化 趋势 如 图 9-2。 


9-1 


s[n_] = Sum[Uk, {k, n}]; data = Table[s[n], {n, 50}]; 
ListPlot[data, PlotStyle -> PointSize[0.02]]; 
练习 2， 观 察 几何 级 数 y ad" (a#0) 的 部 分 和 序列 的 变化 趋势 。 


n=] 
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9.2 ”级 数 的 判 全 


9.2.1 ”比较 审 伍 法 的 意义 


在 用 比较 审 剑 法 判别 一 个 级 数 是 否 收敛 时 ， 需 要 与 另 一 个 已 知 收敛 或 发 散 的 级 数 进行 比 
较 ， ee 《或 称 基 本 级 数 )。 在 使 用 比较 审 伍 法 时 我 们 常用 几 


何 级 数 ad (az=0)， 调和 级 数 祥 一 作为 参考 级 数 。 


n= 


导 判定 级 数 > 一 的 收敛 性 。 


“In 


解 :由 于 当 n 宇 2 时 , 一 -> 二 ,而 级 数 交 二 是 发 散 的 ， 故 级 数 宛 一 = 发散。 输入 以 下 Mathematica 


n=11 


语句 , 得 图 形 如 图 9-3。 从 图 9-3 中 可 以 看 到 该 发 散 级 数 趋 于 oo 的 
度 比 调和 级 数 快 。 2 
sl[n_] = Sum[l/Log[k], {k, 2, n}];s2[n_] = Sum[Uk, {k, nj]; 3 
datal = Table[s1[n], {n, 2, 100}];data2 = Table[s2[n], {n, 100}]; 

gl = ListPlot[datall;g2 = ListPlot[data2];Show[gl, g2)}; 


有。 观察 "一 级 数 六 -的 收敛 性 ， 
解 :输入 以 下 Mathematica 语句 ， 可 得 到 不 同 p 值 级 数 的 图 形 如 图 9-4。 


s[n_] = Sum[l/k Dp, {k, n};m = 3; 
For[p = -2, p < m, Be Table[s[n], {n, 100]];ListPlot[datal]jj 


pal 
2 00 6 80 10 


20 40 60 80 100 20 40 60 B80 100 


9-4 《〈《 从 左 至 右 p=-2,-1,2,3 ) 
由 图 9-4 可 知 当 p > 1] 时 p - 级 数 收敛 。 
练习 3 判断 下 列 级 数 的 敛 散 性 。 


1) (4 
0 Pps 0 Fi G) > 人 二- 


n=l n=1 n=1 7 


9.2.2 交错 级 数 审 化 法 的 意义 


如 果 交 错 级 数 六 (-1)"a,(a, > 0) 的 一 般 项 满足 以 下 两 个 条 件 ; 


(1) 绝对 值 逐 项 递减 ， 即 a < a (n=12,…) ; 
CO) lma,=0。 
则 交错 级 数 福 (-D)”a 收敛 。 


##=] 
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A n-l 
实验 5 判断 交错 级 数 羡 (六 > 0) 的 化 生性。 


解 : 由 于 随 n 增 大 而 递 乱 地 趋 于 等， 因而 此 级 数 收敛。 输入 以 下 Mathematica 语句 ， 可 得 


图 形 如 图 9-5。 从 图 9-5 中 可 以 观察 到 其 变化 趋势 
sln_] = Sum[(CbD^k - D/k’p, {k, nj];m = $5;u[n_] = (也 ^Ga - D/n’p; 
For[p = 1, p< m, p++, 、 
datal = Table[s[n], {n, 50}];data2 = Table[u[n], {n, 50}]; 
gl = ListPlot[datal, PlotStyle -> PointSize{0.02], PlotLabel -> "'s[n]'']l; 
g2 = ListPlot[data2, PlotStyle -> PointSize[0.02], PlotLabel -> "ufn]'']; 
Print["p=", p]] 


! 


2 10°9 
0.97212 . 
* 1 10 
TR 2 
Ss a wa earedeeeopmeosee 
0.97212 ee 10 2 30 40 50 
站 -i 
' -1 10 。 
0,972119 2 1079 . 


9-5 “p=1 时 的 部 分 和 ,与 一 般 项 w, 的 变化 趋势 


练习 4 讨论 交错 级 数 立 乞 凡 的 化 散 性 。 


9.2.3 ”通过 图 形 观 察 级 数 的 收敛 性 


如 果 我 们 将 级 数 的 所 有 部 分 和 用 竖 直 线段 画 出 ， 便 得 到 类 似 条 形 码 的 图 形 ， 通 过 这 种 图 
形 可 以 直接 看 出 级 数 的 收敛 性 。 


要 颈 看 。 西 出 级 数 光 (~1)” 二 的 部 分 和 分 布 图 。 


解 ， 输 入 以 下 Mathematica 语句 ， 得 到 级 数 六 (0 二 部分 和 的 分 布 图 如 图 9-6。 从 图 9-6 中 
可 以 看 出 它 收敛 于 0.693 附近 的 一 个 数 。 


Clear[sn, g]; sn=0;n=1;g={)};m=3; 

While[ln > 10^-m, sn = sn + CD ^(n - 1)/n; 

g= Append[g, Graphics[{RGBCoior[Abs[Sin[n]], 0, LU/n], Line[{{sn, 0}, 
{sn, 3}1}ll;nt+]; 

Show[g, PlotRange -> {-0.2, 1.3}, Axes -> True]; 


ot 
Wl 
0.692.6940.6960.698 
图 9-6 
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练习 5 画 出 调和 级 数 守 -的 部 分 和 分 布 图 ， 并 观察 其 发 表 的 图 懈 特 征 。 
9.3 ”函数 的 需 级 数 展开 
如 果 函 数 在 加 邻 域内 具有 任意 阶 导 数 ， 函 数 可 以 展开 为 罗 处 的 震级 数 
f (x)= Ze-m 关 Fy 


称 之 为 泰勒 级 数 。 特 别 地 ， 当 =0 时 ， 称 为 f(x) 的 麦克 劳 林 级 数 。 
写 出 函数 f(x) =arcsinx 的 窜 级 数 展开 式 ， 并 利用 图 形 考 察 虹 级 数 部 分 和 晕 近 函数 的 


情况 。 
解 : 根据 寡 级 数 的 展开 公式 ， 若 (x) 能 展开 成 医 级 数 ， 其 展开 式 为 


(n) 
可 = 二 人 了 Ow. pF 
输入 以 下 Mathematica 语句 ， 可 得 到 徊 级 数 部 分 盘 近 函数 的 图 形 如 图 9-7。 
flx_] = ArcSin[lx];g[n_] = DI[f{x], {x, n}] /. x -> 0; 
s[n_, x ] = Sum[g[Kk]*(x^KR)/k!, {k, 0, nj]; 
t= Table[s[n, x], {n, 10}];Plot[Evaluate[t], {x, -1, 1}]; 

从 图 9-7 中 可 看 到 : 当 nn 越 大 时 ， 函 数 的 究 级 数 越 通 近 函 数 本 身 。 


1 4 
0.5 p> 0 
了 2 
-1 -0 .5,2 0.5 1 
”0.5 
4 -1 
图 9-7 


练习 6 贝 塞 尔 (Bessel) 函数 是 一 类 重要 的 微分 方程 的 解 ， 它 在 天 体 物 理 和 热量 分 布 问题 中 
有 着 重要 的 应 用 。 零 阶 贝 塞 尔 函 数 定义 为 下 列 寡 级 数 的 和 函数 


)= 5 


ps 
利用 图 形 考察 寡 级 数 部 分 和 逼近 函数 的 情况 。 


练习 7 对 函数 (x)=1e ”，x0，, 利用 图 形 观察 函数 在 *= 0 附近 的 性 态 , 并 说 明 f(x) 的 
0 ,， x=0 


麦克 劳 林 公 式 的 余 项 当 n 一 % 时 并 不 趋 于 零 。 
练习 8 伯 恩 斯 坦 (Bernstein) 多 项 式 定义 为 
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B (x)= 3 f E 上 (xz) 


(1) 画 出 n=2,4,7 时 伯 思 斯坦 多 项 式 逼 近 函 数 1(D=3- 一 于 的 情况 ; 
(2) 利用 图 形 的 方法 找 出 一 个 合适 的 n ， 使 得 |B,(x) 一 f(z) <e, 其 中 e =0.4。 
利用 究 级 数 展开 式 计算 240 (精确 到 10-" )。 


解 : V0 -38-3=3[!- 权 J 根据 (1+x) 在 t=0 处 的 展开 式 ， 有 


6- 和 -二 -二 二] 


5 3 3213 5.3! 3 
故 前 n(n > 2) 项 部 分 和 为 


输入 以 下 Mathematica 语句 ， 得 结果 为 8240 = 2.992555739 。 
s[n_] = 3(1 - V(S*3^4) - Sum[Product[lS i - 1, {i, 1, k -了 JSAk k! 3^(4k)), 
{k, 2, n - 1}]); 
rln_}] = Product{S i-1, {i,1,n-1})/s^n/nV/3^(4n - S$)/80; 
delta = 10^(-10); n0 = 100; 
Dol[Print["n=", n, ",", "s[n]="", N[s{n], 20]]; 
Iffr[n] < delta, Break[]];IfIn == n0, Print{''failed"']], {n, n0}] 


练习 9 利用 宪 级 数 展开 式 arctanx= 守 x" 近似 计算 下 的 值 。 


9.4 ” 合 里 叶 (Fourier ) 级 数 


设 f(x) 是 以 27 为 周期 的 周期 函数 ， 在 任 一 周期 内 ，f (x) 除 在 有 限 个 第 一 类 间断 点 外 都 连 


续 ， 并 且 只 有 有 限 个 极 值 点 ， 则 Fo 可 以 展开 为 Fourier 级 数 。 


4 acos 了 + sin 2 
n=} T I 

其 中 ， 
a, =T/ fc0s Edx 
os T ， N=1,2,.…. 
b= 人 f sin dr 


Pouricr 级 数 在 任 一 点 加 处 收 化 于 了 + 人 a+9)， 


泰勒 级 数 和 Fourier 级 数 本 质 上 都 是 利用 多 项 式 函 数 或 三 角 函 数 的 登 加 ， 去 逼近 已 知 函 数 
得 到 的 。 

在 实际 问题 中 ， 经 常 需要 将 一 个 周期 函数 分 解 成 一 系列 简单 周期 函数 的 琶 加 。 例 如 ， 在 
信号 处 理 中 , 将 信号 分 解 为 简 谐 波 函 数 的 又 加 是 非常 重要 的 一 个 步骤 。 这 个 问题 在 数学 上 便 是 
求 周期 函数 的 Fourier 级 数 。 一 个 周期 函数 的 Fourier 级 数 如 果 存在 的 话 , 总 是 可 以 通过 计算 求 
出 来 。 但 是 这 个 级 数 是 否 收敛 于 原来 的 函数 呢 ? 


设 .FoO 是 周期 为 2r ， 振 幅 为 1 的 方 波 函数 ，f(x) 在 [-m,7m] 上 的 表达 式 为 


四 -1 ， 一 TXT 和 X<0 
20 二 ， 0 入 xz<T 
试 生成 f(x) 的 Fourier 级 数 ， 并 画图 形 观察 该 函数 的 部 分 和 逼近 Co 的 情形 。 
解 : 输入 以 下 Mathematica 语句 ， 得 部 分 和 允 近 了 f(x) 的 图 形 如 图 9-8。 
Clear[fl; n = 16; g[x_] := 0; 
f[x_] = Which[-2*Pi <= x < -Pi, 1, -Pi <= x <0, -1,0 <=X< Pi, 1， 
Pi <=X<2+*Pi -1}; 
glL = Plot[f{x], {x, -2*Pi, 2*Pi}, PlotStyle -> RGBColor[0, 0, 1]]; 
For[i = 1, i <=n, it+,bi = 2*(1 - (-1)^D/(G*Pi); 
- g[x_] = g[x] + bi*Sin[i*x]; 
£22 = Plot[g[x], {x, -2*Pi, 2*Pi}, PlotStyle -> RGBColor[], 0, 0], 
DisplayFunction -> Identity]; 
Show[g1, g2, DisplayFunction -> $DisplayFunction]] 


生 3 一 、 ~ 
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从 图 中 可 以 看 到 ， 当 半 越 大 时 逼近 函数 的 效果 越 好 ， 还 可 注意 到 Fourier 级 数 的 逼近 是 整 
体 性 的 。 


: 将 函数 f(x)=x? +1 展开 成 周期 为 2 的 Fourier 级 数 。 
解 ， 输入 以 下 Mathematica 语句 ， 得 了 (x) 的 1~5 阶 Fourier 展开 式 为 : 


Remove[fseries];fseries[f ,T_ ,j |]:= 
Module[{a, b, i, t, ss, g1, g2}, a[0] = Integrate[f, {x, -T, T}YT; 

ss = a[0]/2;Dolt = i*Pi/T; 
ali ] = Integrate[f*Cos[t*x], {x, -T, T})/T; 
bli_] = Integrate[f*Sin[t*x), {x, -T, T})/T; 

SS = SS + afi] Cos[t*x] + b[il*Sin[t*x], {i, 1, j}]; 
Print[ss] . 
Plot{[Evaluate[ss], {x, -T, T}, DisplayFunction -> Identity]] 


f=x^2+1;T=2;n=5; 
g= Plot[f, {x, -T, T}, PlotStyle -> RGBColor{]1, 0, 0]]; 
Forlj =1,j <= n, j++,p = fseries[f, T, j]; 

Show[g, p, DisplayFunction -> $DisplayFunction]] 


n 到 n 3 
l6cos| ~ 16 一 16cos| ~ Nx 
7_ | mk oo gooom 二 | 9 
一 一 一 一- 一 一 + 一 一 -一 


3 Te ”3 Te 元 3 ne 7 gn? 
n 3 
16 一 es 
7 eos| Bx| 4cosnx Ons me COS 2X 
二 
3 nT n yi n 
Wd 3 
l6cos|—x 
C 浊 ee loeos GOB l6cos—x 
0 2 
3 n nT 9n T 257T 


-2 “1 1 2 4 1 1 2 -2 人 区 2 
5 EE 5 
4 人 4 
3 3 
2 2 2 
2 人 守 1 2 2 +1 1 2 2 -1 1 2 
图 9-9 
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练习 10 在 实验 9 中 增 大 的 值 ， 观 察 简 谐 波 的 琶 加 是 否 愈 来 愈 逼 近 方 波 ? 不 管 n 多 大 ， 为 
什么 逼近 曲线 与 x 轴 的 交点 总 是 不 变 ? 另外 在 间断 点 附近 逼近 曲线 是 否 总 有 较 大 的 跳动 ? 你 
能 说 明 为 什么 吗 ? 

练习 11 画 出 /Co0= 咱 (Cr 和 x 科 及 它 的 大 阶 Fourier 多 项 式 肥 (Co (k=1,2,…,6) 的 图 形 ， 观 
察 y= 环 (xz 逼近 >= f(x) 的 情况 。 
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实验 十 常 微 分 方程 


本 实验 的 目的 是 理解 常 微分 方程 解 的 概念 以 及 积分 曲线 和 方向 场 的 含义 。 
10.1 “” 常 微 分 方程 的 精确 解 


常 微分 方程 解析 形式 的 解 称 为 常 微分 方程 的 精确 解 。 在 Mathematica 中 对 于 简单 的 微分 方 
程 可 以 求 得 其 精确 解 。 


求解 微分 方程 空 =ery ， 并 作出 其 积分 曲线 。 


解 : 输入 以 下 Mathematica 语句 ， 得 到 微分 方程 的 解 为 y= Ce” 。 
DSolve[y'[x] == E^x y[x], y[x], x] 
下 面 我 们 在 同一 坐标 系 中 作出 这 个 微分 方程 的 积分 曲线 〈 设 C=-3., -2,-1,0,1,2,3), 输入 以 
下 Mathematica 语句 ， 得 图 形 如 图 10-1。 
t= Table{c*E^(E^x), {c, -3, 3}];Plot[Evaluate{t], {x, -1, 1.5}]; 


练习 1 求解 微分 方程 xdy 一 yInydx=0， 并 作出 其 积分 曲线 。 


实验 2 求 伯 努 利 方程 2 +y=y (cosx 一 sinx) 满足 初始 条 件 y(0) =1 的 解 。 


1 
ee” 一 SinX 
DSolve[{y [xl + y[x] == y[x}^2*(Cos[x] - Sin[x]), y[0] == 1}, y[x], x] 
输入 以 下 Mathematica 语句 ， 得 积分 曲线 如 图 10-2。 
Pilot[Evaluate[-LV(C-Exp[x] - Sin[x])], {x, -9, 9}]; 


解 ， 输入 以 下 Mathematica 语句 ， 得 到 微分 方程 的 特 解 y = 


10-1 


DE dy 2y 3 
求解 微分 方程 一 一 一 一 =(x+1)z ， 并 作出 积分 曲线 。 
dx x+l 
解 ， 输入 以 下 Mathematica 语句 ， 得 到 积分 方程 的 解 为 =(x+1} | 了 (x+ 直 +c|。 
<< Graphics PlotField™ 
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DSolvely'[x] - 2 y[xJ/(x + 1) == (x + 1)^(5/2), y[x], x] 
下 面 我 们 在 同一 坐标 系 中 作出 这 个 微分 方程 的 方向 场 和 积分 曲线 ( 设 C=-3, -2,-1,0,1,2,3)， 
输入 以 下 Mathematica 语句 ， 得 图 形 如 图 10-3。 


t= Tablef2 (1 + x)^(7/2)/3 + (1 +x)’2 ce, {e, -1, 1}); 
gl1 = Plot[Evaluate{[t], {x, -1, 1}, PlotRange -> {{-1, 1}, {-2, 2}}, 
PlotStyle -> RGBColor[1, 0, 0],DisplayFunction -> Identity]; 
g2 = PlotVectorField[{1, -2 y/(x + 1) + (x + 1)^(S/2)}, {x, -0.999, 1}, {y, -4, 4}, 
Frame -> True, ScaleFunction -> (1 &), ScaleFactor -> 0.16, HeadLength -> 0.01, 
PlotPoints -> {20, 25}, DisplayFunction -> Identity]; 
Show[gl, g2, Axes -> None, Frame -> True, DisplayFunction -> $DisplayFunction]; 


卖 旺 加 求解 微分 方程 4- 20)y = 忆 +y 一 2， 并 作出 其 积分 曲线 。 
解 ， 输 入 以 下 Mathematica 语句 ， 得 到 微分 方程 的 解 为 y -+ 二 
<< Graphics PlotField- 
DSolve[(1 - 2 *x* y[x])*y'[x] == XA2 + (y[xJ)A2 - 2, y[x], x] 
我 们 在 -3 委 C 委 3 时 作出 积分 曲线 ， 即 输入 以 下 Mathematica 语句 ， 得 微分 方程 的 向 量 场 
与 积分 曲线 、 等 值 线 的 图 形 如 图 10-4。 


“20,750:m.25 $0.250.n:75. 1 


图 10-3 图 10-4 

tl = Table[(3 + Sqrt[3])Sqrt[3 + 24 x^2 - 4 x^4 - 4*c*x]/(6*x), {c, -3, 3}]; 
t2 = Table[(3 - Sqrt[3])Sqrt[3 + 24 x^2 - 4 x^4 - 4*c*x]/(6*x), {c, -3, 3}]; 
gel = Plot[Evaluatef{t1], {x, -3, 3}, PlotRange -> {{-3, 3}, {-3, 3}}, 

PlotStyle -> RGBColorll 0, 0], DisplayFunction -> Identity]; 
gg2 = Plot[Evaluate{t2], {x, -3, 3}, PlotRange -> {{-3, 3}, {-3, 3}}, 

PlotStyle -> RGBColorfl 0, 0], DisplayFunction -> Identity]; 
gl1 = ContourPlot[y - x^3/3 - x*(-2 + y^2), {x, -3, 3}, {y, -3, 3}, 

PlotRange -> {-3, 3}, Contours -> 7, ContourShading -> False, 

PlotPoints -> 50, DisplayFunction -> Identity]; 
£2 = PlotVectorField[{1, (x^2 + y*2 - 2)/(1 - 2*x*y)}, {x, -3, 3}, {y, -3, 3}, 

Frame -> True, ScaleFunction -> (1 &), ScaleFactor -> 0.16, 

HeadLength -> 0.01, PlotPoints -> {20, 2S$}, DisplayFunction -> Identity]; 
Show[gl, g2, Axes -> None, Frame -> True, DisplayFunction -> $DisplayFunction]; 
Show[ggl, gg2, g2, Axes -> None, Frame -> True, 

DisplayFunction -> $DisplayFunction]; 
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练习 2 求解 微分 方程 了 + 22z =1， 并 作出 其 积分 曲线 。 
练习 3 作出 下 列 微分 方程 的 积分 曲线 。 
(1) (2x~5y+3)dx-(2x+4y—6)dy=0; (2) (x+y)dx+(3x+3y-4)dy=0. 


辐 生 求解 微分 方程 = 2z+ er ， 并 作出 其 积分 曲线 。 
解 ， 输入 以 下 Mathermatica 语句 ， 得 到 微分 方程 的 解 为 ?= C + Cxz+er+ 。 


了 DSolvefy'""[x] == 2*x + E^x, y[x], x] 
输入 以 下 Mathematica 语句 ， 得 积分 曲线 如 图 10-5。 
g1 = Table[lPlot[E^x + x^3/3 + cl + X *c2, {x, -S, $}, DisplayFunction -> Identity], 
{c1, -10, 10, $}, {c2, -5, 5, S$}]; 
Show[gl, DisplayFunction -> $DisplayFunction]; 


10.2 一 阶 微 分 方程 在 几何 中 的 应 用 


10.2.1 正 交 曲线 


如 果 两 曲线 焦 相 交 时 都 成 正 交 , 则 这 两 曲线 镶 称 为 正 交 轨 线 , 正 交 轨 线 有 相当 广泛 的 应 用 ， 
如 电力 线 、 磁 力 线 及 地 球 上 的 经 纬 线 等 。 平 面 上 的 曲线 驴 通 常 可 表示 为 


F(x,y,c)=0 (10-1) 
其 中 cc 为 常数 ， 要 求 F(x,y,c)=0 的 正 交 轨 线 ， 可 将 F(x,y,c)=0 化 为 
y (x)=f (x,y) (10-2) 


的 形式 。 对 于 点 Cn,yo), Ca,yo) 代表 通过 点 0%0,y6) 的 曲线 的 斜率 。 与 该 曲线 正 交 的 另 一 曲线 


在 该 点 的 斜率 为 - pr ， f(xmw,%)#0。 因 此 ，(x,y,c)=0 的 正 交 轨 线 所 满足 的 微分 广 
0 70 


程 为 


4 


Sd 
”Fy) 


解 :输入 以 下 Mathematica 语 句 , 得 到 其 正 交 轨 线 的 方程 为 y? +2xy 一 x? =c ,它们 的 图 形 如 图 10-6。 


(10-3) 
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<< Graphics ImplicitPlot 

eqn = y[x]^2 + 2*x*y[x] - x^2 == cyeqnl = eqn /. y[x] -> y; 

fsl =eqnl /. Tablel{c -> nj, {n, -4, 4, 2}];g1 = ImplicitPlot[fs1, {x, -3, 3}, {y, -3, 3}]; 
eqn2 = Dfegn, x];sol = Solve[egn2, y'[x]][[1, 1]] /. Rule -> Equal; 

eqn3 = MapAt[-1/# &, sol, 2];sol2 = Simplify{DSolve[eqn3, y[x], x]]; 

sol3 = Sol2[[1, 1]] /. C[1] -> ¢ /. Rule -> Equal/. y{x] -> y; 

s014 = Map[(# - X)^A2 &, sol3] // Simplify;sols = sol4/./c -> ¢; 

S016 = sol$ /. Table[{c -> n}, {n, -4, 4, 2}] 

22 = ImplicitPlot[sol6, {x, -3, 3}, {y, -3, 3}];g = Show[g1, g2]; 
Show[GraphicsArray[{glL, g2, g}]]; 


.3 3 
| 2 EN S 2 由 
/二 2 SS 1 
52 tA i 全 下 有 EN 
a | ) pe nn Ne 
-3 MN fy /1 23 
图 10-6 
10.2.2 方向 场 
通常 ， 我 们 可 以 把 一 阶 微分 方程 写 为 
y = f(x,y) (10-4) 


的 形式 。 在 某 个 区 间 D 中 的 任 一 点 (0,y0)， 都 可 以 找到 微分 方程 = f(x y) 的 解 y(x) 在 该 点 


斜率 f(%,y)。 如 果 找 出 足够 多 的 点 ， 则 在 这 个 区 间 内 就 可 以 看 出 这 个 微分 方程 的 解 的 趋向 ， 
这 个 图 形 称 为 微分 方程 的 方向 场 〈 在 前 面 我 们 已 经 看 到 了 这 一 点 )。 再 代入 初始 条 件 ， 就 可 以 
顺 着 斜率 的 走向 画 出 符合 初始 条 件 的 解 。 在 这 种 情况 下 ， 通 常 可 以 用 作 图 的 方式 求 得 解 。 


画 出 衬 - 1 一 六，y(0)=0 的 方向 场 。 


解 ， 输入 以 下 Mathematica 语句 ， 得 到 方向 场 如 图 10-7。 

<< Graphics`PlotFiel 

gl1 = PlotVectorField[{1, 1 - y^2}, {x, -3， 3}, {y, -2, 2}, Frame -> True， ScaleFunction -> 
(1 &), ScaleFactor -> 0.16, HeadLength -> 0.01, PlotPoints -> {20, 2S]]; 


从 图 10-7 中 可 以 看 到 ， 当 初始 条 件 为 yo = 了 时 ， 这 个 微分 方程 的 解 介 于 -1 和 1 之 间 ， 且 


当 x 趋 向 于 -= 成 + 时 ，y(z) 分 别 趋向 于 -1 与 1。 
下 面 求解 这 个 微分 方程 ， 并 在 同一 坐标 系 中 画 出 方程 的 解 与 方向 场 的 图 形 。 


输入 以 下 Mathematica 语句 ， 得 到 微分 方程 的 解 为 y(x) = +e. 解 曲线 与 方向 场 的 图 形 如 
图 10-8。 
78 


sol = DSolve[{y'[x] == 1 - y[x]^2, y[0] == 0}, y[x], x]; 
22 = Plot[sol[[{]1, 1, 2]], {x, -3, 3}, PlotStyle -> {Hue[0.1], Thickness[0.005]}]; 
Show[g2, gl1, Axes -> None Frame -> True]; 


EE- 国 4 从 其 是 
5 1 2 3 


图 10-7 图 10-8 
从 图 10-8 可 以 看 到 ， 微 分 方程 的 解 与 方向 场 的 箭头 方向 相 吻 合 
练习 4 如果 将 初始 条 件 改 为 Y0) = -V2， 你 能 根据 方向 场 预测 解 的 形式 吗 ? 这 个 解 是 否 存 在 
奇 点 ?如 果 有 ， 位 于 x 轴 的 什么 地 方 ? 
实验 8 验证 15(-58 -30y+3)=c 是 人 分 方程 yD = -的 通 解 
解 : 输入 以 下 Mathematica 语句 ,分别 画 出 积分 曲线 如 图 10-9(a)、 微分 方程 的 方向 场 如 图 10-9 
(b)， 以 及 在 同一 坐标 系 中 画 出 积分 曲线 和 方向 场 的 图 形 如 图 10-9 (c)。 
<< Graphics 了 PlotFiel 人 
<< Graphics ImplicitPlot 
sol = (-S5x^3 - 30y + 3y^5)/15 == C; 
gl1 = ImplicitPlot[sol /, Table[{C -> n}, {n, -3, 3}], {x, -3, 3}]; 
2 = PlotVectorField{{1, X^A2/(9^4 - 2)}, {x, -3, 3}, {y, -3， 3}, 
Frame -> True, ScaleFunction -> (1 &), ScaleFactor -> 0.16, 
HeadLength -> 0.01, PlotPoints -> {20, 25}]; 
g= Show[g2, gl1, Axes -> None, Frame -> True]; Show[GraphicsArray[{gl, 22, 2}]]; 


2 
1 
0 
十 
-2 


lr 
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(a) (b) (c) 
图 10-9 
从 图 10-9(c) 中 可 以 看 出 微分 方程 的 积分 曲线 与 方向 场 的 箭头 方向 吻合 ， 且 当 x 一 吕 时 ， 
无 论 初始 条 件 是 什么 ， 所 有 的 解 都 趋向 于 一 条 直线 方程 。 
10.3“ 微 分 方程 的 数值 解 
只 有 某 些 特殊 类 型 的 微分 方程 有 分 析 解 ， 因 此 求 微分 方程 数值 解 即 近 似 解 是 非常 重要 的 
(将 在 实验 二 十 七 中 作 进 一 步 的 研究 )。 
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于 常生 分 方程 人 一》 ， 其 雪 值 解 是 指 由 初 凤 点 为 开始 的 车 二 离散 的 x 信 处 ， 即 对 


<<%h <…< 吉 ， 求 出 准确 值 y(%),y(x,)…,y(%) 的 相应 近似 值 六 ,7 。 


、 ee 
实验 向 ”在 区 间 [1, 4] 上 求 出 微分 方程 和 sinx+1=0 的 数值 解 ， 并 作出 数值 解 的 图 形 。 
解 : 输入 以 下 Mathematica 语句 ， 得 到 数值 解 的 图 形 如 图 10-10。 
<< Graphics PlotField` 
so] = NDSolve[{x*y'[x] - x^2*y[x]*Sin[x] + 1 == 0, y[1] == 1}, y[x], {x, 1, 4}]; 
f[x_] = Evaluate[ly[x] /. sol]; 
g1 = Piot[ffx], {x, 1, 4}, PlotRange -> All, DisplayFunction -> Identity]; 
g2 = PlotVectorField[{1, (x^2*y*Sin[x] - 1D)/x}, {x, 1, 4}, {y, -2, 9}, Frame -> True, 
ScaleFunction -> (1 &), ScaleFactor -> 0.16, HeadLength -> 0.01, 
PlotPoints -> {20, 25}, DisplayFunction -> Identity]; 
g= Show[g1, g2, Axes -> None, Frame -> True]; 
Show[GraphicsArray[{gl, g}], DisplayFunction -> $DisplayFunction]; 


来 出 人 问题 | +y Sn x+y=C0s x 的 数值 解 ， 并 作出 数值 解 的 图 形 。 
y(0)=1,y(0)=0 
解 : 输入 以 下 Mathematica 语句 ， 得 到 数值 解 的 图 形 如 图 10-11。 
NDSolve[{y"[x] + Sin[x]^2*y'[x] + y[x] == Cos[x]^2, y[0] == 1, y'[0] == 0), 
y[x], {x, 0, 10]] 
Plot[Evaluate[y[x] /. %], {x, 0, 10]]; 
和 =3x+y’ 
y(0)=1 


求 出 初 值 问 题 


， 在 x=0.1 处 (=0.02) 的 数值 解 ， 精 确 到 10”， 并 画 


出 图 形 。 

解 : 输入 以 下 Mathematica 语句 ， 得 到 数值 解 的 图 形 如 图 10-12。 

NDSolve[{y'[x] == 3*x + y[X]^2, y[0] == 1}, y[x], {x, 0, 0.2}, AccuracyGoal -> 4, 
StartingStepSize -> 0.02] 

y[0.1]/. %; gl1 = Plot[Evaluate[y[x] /. % %], {x, 0, 0.2}]; 
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2 4 6 8 0 BS 
0.8| \ 1.2 xp 
A je 
0.6 \ ~ /\ 1.15 区 
\ /\ ee \y 1.1 2 

0.4 \ 7 1.05 Se 
0.2 SS 0.05 0.1 0.15 0.2 

图 10-11 图 10-12 


=X +y 


由 2 
练习 5 . 求 出 初 值 问题 dx ， 在 x=0.5 处 (h=0.1) 的 数值 解 ， 精 确 到 10*， 并 作出 图 


y(0)=1 


形 。 


10.4 微分 方程 组 的 解 


2x’(t)+2x(t)+ y(t)=0 
y (D+2x(1) + y(t) =1 
x(0) =0,x(0)=10, y(0) = 0, y'(0) = 40 


解 ， 输 入 以 下 Mathematica 语句 ， 得 到 微分 方程 组 的 解 曲线 如 图 10-13。 
eql = 2x"'[t] + 2x[t] + y[t] == 0;eq2 = y"'[t] + 2x[t] + y[t] == 1; 
sol = DSolve[{eq1, eq2, x[0] == 0, x'[0] == 10, y[0] == 0,y [0] == 40}, {x[t], y[t]}, 4] 
Plot[Evaluate[{x[t], y[t]} /. sol], {t, 0, 6}, PlotRange -> All, 
PlotStyle -> {Dashing[{0.01}], Thickness[0.005]}]; 
在 多 数 情况 下 , 无 法 求 出 非 线 性 微分 方程 组 的 精确 解 。 我 们 可 以 求 出 其 数值 解 ， 并 给 出 解 
的 图 形 。 


求解 微分 方程 


AM 的 解 
yO+CzDO+PO-DyDO+xz0=0 


解 ， 以 x(0) = -2, y(0) = -1 为 初 值 条 件 ， 输 入 以 下 Mathematica 语句 : 
Sys = Sequence[x'[t] == y[t], y'[t] + (x[t]^2 + y[t]^2 - 1)y[t] + x[t] == 0]; 
NDSolve[{sys, x[0] == -2, y[0] == -1}, {x[t], y[t]}, {t, 0, 20}]; 
解 得 微分 方程 组 的 数值 解 为 : 
{{x[t] -> InterpolatingFunction[{{0., 20.}}, "<>""][1], 

y[t] -> InterpolatingFunction[{{0., 20.}}, "<>"][t]}} 

以 x(0) = -2,y(0) =-2 为 初 值 条 件 ， 输 入 以 下 Mathematica 语句 ， 得 到 解 的 图 形 如 
10-14(a)， 从 图 中 可 以 看 出 随 着 + 值 的 变 大 ， 方 程 组 的 解 最 后 绕 在 一 个 封闭 的 区 域内 。 
<< Graphics`PlotFiel 人 
soll = NDSolve[{fsys, x[0] == -2, y[0] == -2}, {x[t], y[t]}, {t, 0, 20}]; 
gl1 = ParametricPlot[Evaluate[{x[t], y[t]} /. sol1], {t, 0, 20}, 

PlotRange -> All, AspectRatio -> Automatic]; 
以 x(0) = -0.2, y(0) = -0.1 为 初 值 条 件 ， 输 入 以 下 Mathematica 语句 ， 得 到 另 一 组 解 的 图 形 
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实验 13 二 研究 不 同人 条 件 下 八 分 方程 组 | 


如 图 10-14(b)。 
sol2 = NDSoive[{sys, x[0] == -0.2, y[0] == -0.1}, {x[t], y[t]}, {t, 0, 20}]; 
g2 = ParametricPlot[Evaluate[{x[t), y[t]} /. sol2], {t, 0, 20}, 
PlotRange -> All, AspectRatio -> Automatic, PlotPoints -> 256]; 
Show[GraphicsArray[{gl, g2]]]; 
从 图 10-14(b) 中 可 以 看 出 由 (-0.2,-0.1) 开始 的 曲线 ， 最 后 也 绕 在 一 个 封闭 的 区 域内 。 


(a) (b) 
10-13 图 10-14 


在 同一 坐标 系 中 显示 不 同 初 值 条 件 下 的 解 曲线 ， 输 入 以 下 Mathematica 语句 : 
g=Show[gl, 82]; 
得 到 图 10-15 (a)。 由 图 中 可 以 看 出 ， 无 论 取 什么 样 的 初 值 ， 所 有 的 解 最 终 绕 在 一 个 圆 上 ， 
称 为 极限 圆 。 输 入 以 下 Mathematica 语句 : 
g3 = PiotVectorField[{y, -(x^2*y^2 - 1)y - x}, {x, -2, 2}, {y, -2, 2}, 
AspectRatio -> 0.7, ScaleFunction -> (1 &), ScaleFactor -> 0.08, 
HeadLength -> 0.008, PlotPoints -> {36, 32}, ColorFunction -> (GrayLevel[0.6] &)}; 
g4 = Show[g, g3];Show[GraphicsArray[{g, g4]]]; 
同时 显示 方向 场 和 解 的 图 形 如 图 10-15(b)。 我 们 可 以 任 选 一 点 ， 作 为 初始 条 件 ， 然 后 顺 着 
箭头 的 方向 绘制 解 的 图 形 。 


(a) (b) 
10-15 


试 多 取 几 个 初 值 条 件 ， 多 绘制 几 条 解 曲线 ， 观 察 实验 13 中 图 形 的 变化 情况 。 


实 套 国治 伦 北 (Lorenz) 方程 组 是 由 三 个 一 阶 微分 方程 组 成 的 方程 组 。 这 三 个 方程 看 似 简 
单 ， 也 没有 包含 复杂 的 函数 ， 但 它 的 解 却 很 有 趣 和 耐人寻味 。 试 求解 洛 伦 兹 微分 方程 组 
Xx(t)=16y(t) -16x(t) 

y(t) =—x(t)z(t) + 45x(t) — y(t) 
Z(t) = x(t) y(t) — 4z(t) 

x(0) =12, y(0) = 4,z(0)= 0 


解 : 输入 以 下 Mathematica 语句 ， 得 到 数值 解 的 图 形 如 图 10-16 (a)。 


， 并 画 出 解 曲线 的 图 形 。 
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Clear[eq, x, y, z] 
eq = Sequence[x'[t] == 16*y[t] = 16*x[t], y'{[t] == -x[{]*z[t] = y[t] + 45x{t], 
z'[t] == x[t]*y[t] - 4z[t]]; 
soll = NDSolve[{eq, x[0] == 12, y[0] == 4, z{0] == 0}, {x[t], y[t], z[t]}, {6,0, 16}, 
MaxSteps -> 10000]; 
gl = ParametricPlot3D[Evaluate[{x[t], y[t]; z[t]} /. sol1], {t, 0, 16}, 
PlotPoints -> 14400, Boxed -> False, Axes -> None]; 
从 图 中 可 以 看 出 洛 伦 兹 微分 方程 组 具有 一 个 奇异 吸引 子 ， 这 个 吸引 子 紧 紧 地 把 解 的 图 形 
“ 吸 ” 在 一 起 。 有 趣 的 是 ， 无 论 把 解 的 曲线 画 得 多 长 ， 这 些 曲 线 永 不 相交 。 
改变 初 值 为 x(0) =6,y(0)= 一 10,z(0)=10， 输 入 以 下 Mathematica 语句 ， 
s0l2 = NDSolvel{eg, x[0] == 6, y[0] == -10, z[0] == 10}, {x[t], y[t], 
z[t]}), {t, 0, 24}, MaxSteps -> 10000]; 
g2 = ParametricPlot3D[Evaluate[{x[t], y[t], z[t]} /. sol2], {t, 0, 24}, 
PlotPoints -> 14400, Boxed -> False, Axes -> Nonel; 
Show[GraphicsArray[{gl, g2}]]; 
得 到 数值 解 的 图 形 如 图 10-16 .(b)。 从 图 中 可 以 看 出 奇异 吸引 子 又 出 现 了 ， 它 把 解 “ 吸 ” 
在 某 个 区 域内 ， 使 得 所 有 的 解 好 像 是 有 规则 地 依 某 种 模式 缠绕 。 


图 10-16 
练习 7 ”改变 初 值 ， 并 重新 计算 洛 伦 北方 程 组 的 数值 解 ， 注 意 观察 解 曲线 的 图 形 特 征 。 


d20 dg ， 
实验 15 试 研究 非 线性 微分 方程 Wm +i + Sin =0 


0(0)=0,,0"(0)=% 


在 不 同 初 值 条 件 下 的 解 。 


(1) 0(0)=i,(i=-1,-0.5,0.5,1),0’(0)=0; 

(2) 0(0)=0,0"(0)=i,(=-2,-1,1,2); 

(3) 0(0)=1,0’(0)=1;6(0)=1,0"(0)=-1;0(0)=~-1,0"(0)=1; 
0(0)=-1,0"(0)=-1; 

(4) 08(0)=1,0"(0)=2;8(0)=1,6"(0)=3;6(0)=-1,0"(0)=4; 
6(0)=-16'(0)=5; 

(5) 06(0)=-1,0’(0)=2;0(0)=-1,0(0)=3;0(0)=1,0"(0)=-4; 
6(0)=16'(0)=-5。 
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解 : 分 别 将 (1)~(5) 的 初 值 条 件 代 入 微分 方程 的 数值 解 ,并 将 每 一 组 初 值 问 题 的 解 曲线 画 在 同一 
坐标 系 中 。 输 入 以 下 Mathematica 语句 ， 得 到 解 曲线 的 图 形 如 图 10-17。 其 中 图 10-170 ) 是 所 
有 初 值 条 件 下 的 解 曲线 的 图 形 。 

Clear[eq, s, i];eq = x"'[t] + 0.S*x'[t] + Sin[x[t]] == 0; 

s[i_,j 1 := NDSolve[{eq, x[0] == i, x'[0] == j}, x[t], {t, 0, 15}];tablel = {-1, -0.5, 0.5, 1}; 

Solsl = Table[s[table1[[i]], OJ[[1, 1, 2]], {i, 1, 4}];one = Plot[Evaluate[sols1], {t, 0, 15}]; 


table2 = {-2, -2, 1, 2};sols2 = Table[s[0, table2{[i]]][[1, 1, 27), {i, 1, 4}]; 
two= Plot[Evaluate[sols2], {t, 0, 15}]; 


table3 = {{1, 1}, {1, -1}, {-1, 1}, {-1, -1}}; 

sols3 = Tablef[s[table3[[i, 1]], table3[[i, 2J)1{[1, 1 2]], {i, 1, 4}]; 

three = Plot[Evaluate[sols3], {t, 0, 15}];table4 = {{1, 2}, {1, 3}, {-1, 4}, {-1, $5}}; 
sols4 = Table[s[table4[[i, 1]], table4[[i, 2]]][[1, 1, 2]], {i, 1, 4]]; 

four = Plot[Evaluate[sols4], {t, 0, 1S}];tables = {{-1, 2}, {-1, 3}, {1, -4}, {1, -5}}; 
sols5S = Table[s[tables[[i, 1]], tables[[i, 2]]][[1 1, 2]), {i, 1, 4}]; 

five = Plot[Evaluate[solsS], {t, 0, 15}];six = Show[one, two, three, four, fivel]; 
Show[GraphicsArray[{one, two}]];Show[GraphicsArray[{three, four}]]; 
Show[GraphicsArray[{five, six}]]; 


睛 


12 14 


(a) (b) 


8 101214 


(©) (D) 
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实验 外 6 〈 微 分 方程 组 的 特征 向 量 ) 画 出 以 下 微分 方程 组 
xD=175x0 + 2.17 y(t) 
y(t) =2.17 x() ~ 0.75 y() 

的 方向 场 和 特征 向 量 的 图 形 。 

解 ， 图 形 如 图 10-18。 


10-18 
练习 8 试 以 线性 代数 的 知识 解释 你 所 看 到 的 图 形 。 
练习 9 求解 实验 16 中 的 微分 方程 组 ， 画 出 其 解 曲 线 的 图 形 ， 并 结合 图 10-18 作 进 一 步 的 研 
演 。 
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实验 十 一 “线性 方程 组 


本 实验 的 目的 是 理解 齐 次 线性 方程 组 解 的 几何 意义 ， 了 解 线性 方程 组 的 一 些 应 用 。 


在 Mathematica 中 ， 和 矩阵 的 输入 主要 有 如 表 11-1 所 列 形式 : 
表 11-1 


A= {{all,al12…,aln}}) …,{famlam2,…,amn]] 输入 矩阵 


DiagonalMatrixf {a11,a22,…,ann}] 输入 对 角 元 素 为 ,as，…as 的 对 角 矩 阵 


MatrixForm[fm] 、 以 矩阵 形式 输出 矩阵 M 
IdentityMatrix{n] 产生 一 个 n 阶 单位 矩阵 
Table[0,{m),{n}] 产生 一 个 mxn 阶 零 和 矩阵 

Table{f,{Lm},{j,n}] 产生 一 个 mxn 的 和 矩阵 


1 23 1 
4=|45 6| ,4=(23) ,上 =|2 
7 8 9 3 


解 : 输入 以 下 Mathematica 语句 : 

Al = {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}} 

A2= {{1, 2, 3}} 

A3= {{1}, {2}, {3}} 

得 到 结果 为 {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}}; {{1, 2, 3}}; {{1}), {2}, {3}} 


输入 矩阵 


-1 3 
4 -12 


线性 方程 组 | 六 =0， 并 画 出 (-13) 与 X 的 图 形 。 


解 : 输入 以 下 Mathematica 语句 ， 解 得 X =(3,1)”。 它 们 的 图 形 如 图 11-1。 


1 


0.5 11.5 22.5 3 


图 11-1 
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Needs["Graphics`Colors ”"] 

arrow[{a_,b_},color_] := Graphics[{color, Line[{{0,0},{a,b}}], 
Line[{{a,b},.9{a,b}+.04{-b,a}}], Line[{{a,b},.9{a,b}-.04{-b,a}}]} 

A = {{-1,3},{4,-12}};RowReduce[A];x = {1,-3};NullSpace[A] 

y= {3,1}; 

Show[arrow[x,Red],arrow[y'Green], AspectRatio->Automatic, Axes->True]; 


练习 1 并 性 方程 | 3 A =0 ,并 面 出 (1-2)" 与 的 图 形 。 观 察 图 形 并 给 出 你 的 结论 。 


0.a+0.:.bt+c=7 
1.a+1.5+c=6 ， 输 入 以 下 Mathematica 的 语句 : 
4:.a+2-:btc=9 


Clear[xj;A = {{0,0,1},{1,1,1},{4,2,1}} 

y= {7,6,9} 

p = LinearSolve[A,y] 

Clear[a,b,c,r,s,t];{a,b,c}.{r,s,t} 

{lx_] = p.{x’^2,x,1};Plot[fIx],{x,0,2}]; 

Plot[f{x],{x,0,2}, GridLines->Automatic, PlotRange->All]; 
解 得 a=2,b=-3,c=7 。 画 出 图 形 如 图 11-2。 


解 : 根据 条 件 有 


0.5 1.5 


图 11-2 
练习 2 求 出 通过 平面 上 四 点 (-2,6),(1,4),(2,3),(3,2) 的 3 次 多 项 式 ar3 +bx* +cxz+d 并 画 出 其 
图 形 。 


求 出 通过 平面 上 三 点 (0,0),(D,(-13) 以 及 满足 1(-1)=20,f'()=9 的 4 次 多 项 式 


f(x)， 并 画 出 其 图 形 。 
e=0 
atbtct+dt+e=1 
解 : 设 f(x)=axi+bx +cx +dx+e，, 则 有 sa-b+c-d+e=3 。 输 入 以 下 Mathematica 语句 : 
| —4a+3b-2c+d=20 
4a+3b+2c+td=9 
Clear[a,b,c,d,el; q[x_] = a*x^4+b*x^3+c*x^2+d*x+e; 
eqs = {g[0]==0,g[1]==1,g[-1]==3,q'[-1]==20,q'[1]==9}; 
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{A, y} = LinearEquationsToMatrices[eqs, {a, b, ¢, d, e}]; 
p= LinearSolve[A,y];f[x_] = p.{xX^4,x^3,x^2,x,1}; 
Plot[f{x],{x,-1,1}, GridLines->Automatic, PlotRange->Aji]; 


解 得 f= t+ -Tx 其 图 形 如 图 11-3。 


| 给 定数 据点 (0.7,4.0),(3.3,4.7),(5.6,4.0),(7.1,1.3),，(6.4,-1.1),(4.4,—3.0) ， (0.3, -2.5), 

(-1.41.3) 。 试 找 出 一 个 圆 ， 这 些 数 据点 使 尽 可 能 落 在 该 圆 上 。 

解 ， 输入 以 下 Mathematica 语句 

xs = {0.7, 3.3, 5.6, 7.1 6.4, 4.4, 0.3,-1.1};ys = {4.0, 4.7, 4.0, 1.3,-1.1,-3.0,-2.5, 1.3}; 

pts = Transpose[{xs,ys}]; 

Show[Graphics[{Red, AbsojutePointSize[S], Map[Point, pts], Violet, Circle[{3,1},3.5] }], 
Axes->Automatic, AspectRatio->Automatic]; 

得 到 图 形 如 图 11-4。 
从 图 11-4 中 看 出 拟 合 效果 并 不 好 。 下 面 我 们 介绍 一 种 最 小 二 乘法 。 


图 11-3 图 11-4 
设 圆 的 中 心 在 (c,c )， 半 径 为 ， 则 圆 的 方程 为 fc-cj+(y-c)2= 产 ， 即 
2xc +2yc; +(r ~ ce)=x +y (11-1) 


令 c=r--c cy, 由 (11-1) 式 就 得 到 关于 三 个 未 知 数 c,c,,c; 的 线性 方程 组 
2xc + 2yc, +c =x +y’ 
将 实验 5 中 的 数据 点 代入 方程 ， 得 到 以 下 的 线性 方程 组 
2x4 2y 1 + 
和 2 2 
2x, 2y, 1 2 十 y;» 
: : :1 : 
: lie : 
2x 2 1 x + ye 
这 是 一 个 关于 3 个 未 知 数 ，8 个 方程 的 方程 组 ， 我 们 令 左 边 的 系数 和 矩阵 为 4， 右 端 向 量 为 b， 
则 方程 组 的 最 小 二 乘 解 即 为 求解 方程 组 A7AX = A'b ， 输 入 以 下 Mathematica 语句 : 
ImatA = Transpose[{2xs, 2ys, Table[1, {Length[xs]}]}];vecb = xs^2 + yS^2; 
{cl,c2,c3} = LinearSolve[Transpose[matAl.matA, Transpose[matA].vecb] 
r= Sqrt[c3 + c1^2 + c2^2] 
xs = {0.7, 3.3, 5.6, 7.1, 6.4, 4.4, 0.3,-1.1}; ys = {4.0, 4.7, 4.0, 1.3,-1.1,-3.0,-2.5, 1.3}; 
pts = Transpose[{xs,ys}]; 
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Show[Graphics[{Red, AbsolutePointSizel$], Map[Point pts], Violet, Circle[{c1,c2},r] }], 
| Axes->Automatic, AspectRatio->Automatic]; 
Print["center: (cl ",c2,"); radius: ",r];s = Sqrt[(xs - ¢1)^2 + (ys - c2)^2] 
e=s-r;d = Sqrt[le.el 
deviation[{a_,b_}, rad_] := Module[{e), 
e= Sqrt[(xs - a)^2 + (ys - b)^2] - rad; Sgrt[e.e] ] 
deviation[{cl,c2},r] 
deviation[{3,1},3.5] 


解 得 (ci,c,) = (2.95,0.74),r = 4.07 。 画 出 图 形 如 图 11-5。 


图 11-5 
练习 3 给 定数 据点 (3.3,1.2),(2.0,3.1),(-3.0,2.6), (-0.8,0.2) ， (1.4, 一 1.0), (3.0,0.7) ， 试 用 最 小 二 
乘法 作出 一 个 圆 来 拟 合 这 些 数 据 。 
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实验 十 二 几何 变换 与 特征 向 量 


本 实验 的 目的 是 从 几何 直观 上 理解 线性 变换 与 特征 向 量 的 几何 意义 。 
12.1 几何 变换 
几何 变换 是 计算 机 图 形 学 中 的 基础 技术 ， 有 着 广泛 的 应 用 。 平 面 上 常见 的 变换 有 : 


0 过 地 昌 人 方向 转角 的 能 转变 次 ， 变 人 阵 为 4| 


CoSQ 一 Sin CQ 
Sinw cosC 


中 系数 为 ,5 的 比例 安 疾 4= ?] 


y 


G) 关于 x 才 的 对 称 的 线 仁 变 次 4=| 0 | 


(9 关于 直线 =x 对称 的 变换 4= [| 中 


9 任意 一个 线 性 变 的 4-| 外 
对 正方 形 进行 一 系列 线性 变换 。 设 初始 正方 形 项 点 坐标 为 


PGC-1,-D,PB(,-D, Pb, P(-1,D) 


分 别 对 该 正方 形 进行 以 下 变换 ， 并 观察 变换 结果 。 

(1) 对 正方 形 进行 旋转 变换 ， 

(2) 对 正方 形 进行 任意 一 个 线性 变换 ; 

(3) 对 正方 形 进行 旋转 和 伸缩 变换 , 令 正 方形 围绕 其 中 心 点 旋转 且 放 大 , 得 到 一 组 正方 形 ， 
使 得 每 个 后 面 的 正方 形 包 含 前 一 个 正方 形 。 
解 : 对 正方 形 进行 变换 ， 只 需 对 正方 形 的 四 个 顶点 进行 变换 , 在 将 四 个 顶点 变换 后 的 像 按 顺 序 
连接 即 可 。 


设 第 i 个 顶点 的 坐标 为 P(x,y,)， 则 变换 后 其 像 的 坐标 为 (x ,y, ) =(x,y)4 。 取 不 同 的 变 
换 矩 阵 4， 就 可 以 实现 不 同 的 变换 。 


coOSQ —sing 


CD 对 正方形 进 行 几 转变 次， 令 4| ] -各 ， 阁 方略 转 5 次 。 图 


sinw CosC 
形 见 图 12-1。 
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£7 
C7 


图 12-1 


1.2i 


多 对 正 访 形 站 意 一 个 线性 变换。 令 4=| 3 


| i=0,1,2,…,10, 对 正方 形 进 行 
eR 
10 次 变换 。 所 得 图 形 ( 部 分 图 形 》 如 图 12-2。 


Wm 
最 习 


图 12-2 


中 对方 开 浊 生计 和 人 过 灾 效仿 = | = 中 44 要 


SinDQ CoSC 
使 每 个 后 继 正方 形 正方 包含 前 一 个 ， 取 伸缩 系数 为 *= cosw+ sinc 。 取 w= 32， 共 变换 20 次 ， 
所 得 图 形 如 图 12-3。- 


O © © 


12-3 
练习 1 改变 以 上 实验 中 参数 值 ， 实 现 对 正方 形 的 其 它 形 式 的 变换 ， 观 察 图 形 ， 总 结 出 规律 。 
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12.2 特征 向 量 


如 果 非 零 向 量 w=op 在 线性 变换 下 的 作用 下 , 其 像 op = Au 与 u 的 方向 平行 (方向 相同 或 
相反 或 等 于 0)， 即 hu = Au 对 某 数 4 成 立 ， 则 称 w 为 下 (或 矩阵 4) 的 特征 向 量 。 


2 0 
1.5 0.5 


的 像 。 并 观察 特征 向 量 的 几何 意义 。 
解 : 单位 向 量 和 单位 圆 在 线性 变换 FF 下 的 像 的 图 形 如 图 12-4。 取 书 为 单位 圆 上 的 点 ， 坐 标 为 


(Cos56msin5 用 ,=01…,36， 则 其 像 的 坐标 为 (5,7)= (cos5cmsin35mDA， 连接 op, 与 


oP? ， 若 它们 重合 则 op; 为 特征 向 量 。 部 分 图 形 如 图 12-5。 特 征 值 Xi= 2,4 ;= 二 ， 所 对 应 的 特 
征 向 量 分 别 为 (0.707107,0.707107)", (0,1)" ， 图 形 如 图 12-6。 


wpeA=| | 观察 单位 向 量 (L0) 和 单位 圆 在 矩阵 4 所 对 应 的 线性 变换 严 下 


图 12-4 
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练习 2 和 阵 4-| 了 | 求 由 其 和 征 信 与 特征 向 最， 并 现 罕 特 向量 的 图 歼 ， 从 中 你 能 


得 出 什么 结论 ? 
5 阵 4-| | 了 ] 机 其 和 和信 与 特征 和 和 


解 : 输入 以 下 Mathematica 语句 ， 求 得 特征 值 为 1-i,1+i， 特 征 向 量 为 (-i,1)7,(i,1)*， 部 分 
图 形 如 图 12-7、12-8。 
A={{1, -1}), {1, 1}};Eigenvalues[A] 
Figenvectors[A] 


一 | 


练习 3 WE 咱 4=[ 


4 |， 林 册 其 和 全 与 符 人 向 和 


& 阵 4-| | 全 本 由 4、Ar4 的 时 征 信 与 特征 向 量 ， 画册 与 4 的 年 


向 量 在 线性 变换 4 下 的 像 。 
解 : 图 形 如 图 12-9、 图 12-10。 


图 12-8 图 12-9 
练习 4 从 实验 4 中 你 能 得 出 4 与 44 的 特征 值 、 特 征 向 量 有 什么 关系 吗 ? 
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图 12-10 


附 ”实验 1 的 Mathematica 程序 
Clear[tt, xl, yl, x2, y2, x3, x4, y3, y4, v1, v2, v3, v4, gl1, x10, y10, x20, 
y20, x30, y30, x40, y40]; 
x10 = -1; y10 = -1; x20 = 1; y20 = -1; x30 = 1; y30 = 1; x40 = -1; y40 = 1; a = Pi/16; 
tt = {{Cos[al], -Sinfa]}, {Sinfa], Cos[al}};gl = {}; 
Forli = 1, i <= 6, i++, 
v1 = N[{x10, y10}.tt]; v2 = N[{x20, y20}.tt]; v3 = N[{x30, y30}.tt]; 
v4 = N[{x40, y40}.tt]; xl = Part[vl, 1]; yl = Part[v1, 2]; 
x2 = Part[v2, 1]; y2 = Part[v2, 2]; x3 = Part[v3, 1]; y3 = Part[v3, 2]; 
x4 = Part[v4, 1]; y4 = Part[v4, 2]; 
gl1 = Append[gl, Graphics[Line[{{xl y1}, {x2, y2}, {x3, y3}, {x4, y4}, {x1, y1}}], 
AspectRatio -> 1, PlotRange -> {{-2, 2}, {-2, 2}}]}]; 
x10 = xl; y10 = yl; x20 = x2; y20 = y2; x30 = x3; y30 = y3; x40 = x4; y40 = y4; 
Show[g1]] 
xl0 = -1 y10 = -1; x20 = 1; y20 = -1; x30 = 1; y30 = 1; x40 = -1; y40 = 1; gl1 = {}; 
Show[Graphics[Line[{{x10, y10}, {x20, y20}, {x30, y30}, {x40, y40}, {x10, y10}}], 
AspectRatio -> 1]]; 
Forfi = 1, i <= 20, i++, tt = {{1.2*i, 2}, {3, 1.2*i}}; v1 = N[{x10, y10}.tt}; 
v2 = N[{x20, y20}.tt]; v3 = N[{x30, y30}.tt]; v4 = N[{x40, y40}.tt]; 
x1 = Part[vl, 1]; yl = Part[v1, 2]; x2 = Part[v2, 1]; y2 = Part[v2, 2]; 
x3 = Part[v3, 1]; y3 = Part[v3, 2]; x4 = Part[v4, 1]; y4 = Part[v4, 2]; 
g1 = Append[g1, Graphics[Line[{{x1, y1}, {x2, y2}, {x3, y3}, {x4, y4}, {x1, y1}}], 
AspectRatio -> 1]]; Show[g1]] 
xl0 = -1; y10 = -1; x20 = 1; y20 = -1; x30 = 1; y30 = 1; x40 = -1; y40 = 1; a= Pi/30; 
s = Sin[a] + Cos[al;tl = {{Cos[al, -Sin[a]}, {Sin[a], Cos[a]}};t2 = {{s, 0}, {0, s}}; 
tt=N[tlt2]; g1 = {}; l 
For[i = 1, i <= 20, i++, 
v1 = N[{x10, y10}.tt]; v2 = N[{x20, y20}.tt]; v3 = N[{x30, y30}.tt]; 
v4 = N[{x40, y40}.tt]; xl = Part[v1, 1]; yl1 = Part[v], 2]; 
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x2 = Partlv2, 1]; y2 = Partiv2, 2]; x3 = Part[v3, 11; y3 = Part[v3, 2]; 
x4 = Part[v4, 1]; y4 = Part[v4, 2]; gl1 = Appendl[gl, 
Graphics[Line[{{xl y1}, {x2, y2}, {x3, y3}, {x4, y4}, {x1, y1}}]), 
AspectRatio -> 1, PlotRange -> {{-10, 10}, {-10, 10}}]]; 
xl0 = xl; y10 = y1; x20 = x2; y20 = y2; x30 = x3; y30 = y3; x40 = x4; y40 = y4; 
Show[glj] 
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实验 十 三 复 变 冰 数 


本 实验 的 目的 是 进一步 理解 复 变 函数 以 及 复 变 函数 的 极限 与 连续 性 的 概念 。 


13.1 复 变 函数 

设 G 是 复 平面 上 一 个 点 集 ， 若 对 G 中 每 一 点 z=x+iy ， 按 照 一 定 的 法 则 ， 都 有 复数 

w=U+iy 与 之 对 应 ， 则 称 w 是 z 的 复 变 函数 ， 记 为 
w= f(z) 

由 于 w= f(z)=f(x+iy)=u+iv， 所 以 一 个 复 变 复 值 函 数 相当 于 两 个 二 元 实 变 函 数 
= 二 U(x,y),v =V(x,y)， 故 对 复 变 函数 w= f(z) 的 研究 可 以 转化 为 对 一 对 二 元 函数 的 研究 。 

因为 复 变 函数 f(z) =wu+iv= f(x+iy) 涉 及 四 个 实 变数 x,y,u,v ， 故 不 能 用 一 个 平面 ， 也 不 
能 用 一 个 三 维 空间 中 的 几何 图 形 表示 ,但 我 们 可 利用 两 张 复 平面 : z 平面 和 w 平面 的 点 集 间 的 
对 应 关系 表示 ， 我 们 称 之 为 映射 或 变换 。 
站 将 函数 f(z) = zs 表示 成 f(z) =u(x,y)+iv(x,y) 的 形式 ， 并 分 别 给 出 单位 正方 形 区 域 和 
lz- 过 K 了 在 w 平 面 上 的 像 。 
解 : f(z)= f(x,y)=x*-6x yy + 六 +i4ry-40 )， 单 位 正方 形 区 域 在 平面 上 的 像 见 图 
13-1， 区 域 1z-- 二 KK 在 % 平 面 上 的 像 如 图 13-2。 


图 13-1 图 13-2 
设 函 数 f(z)= z5+472 6， 分 别 画 出 单位 正方 形 区 域 和 0< irgz > 在 w 平 面 上 的 像 。 


解 ; 单位 正方 形 区域 在 w 平面 上 的 像 见 图 13-3， 区 域 0<argz< 了 在 平面 上 的 像 如 图 13-4。 


图 13-3 


练习 1 “已 知 映射 w= za， 试 画 出 单位 正方 形 区 域 和 0<argz < 了 在 w 平 面 上 的 像 。 


设 @ 为 一 实数 ， 则 w= ze” =ree9 是 z 平面 到 w 平面 上 的 一 个 一 对 一 映射 ， 称 之 为 旋 
转 。 


将 椭圆 s(1) =2cost +isint,0<<1< 2r ， 旋转 三 并 将 中 心 分 别 右 移 2 个 单位 和 上 移 1 
个 单位 。 

解 ， 椭圆 在 上 述 操作 下 的 方程 可 表示 为 (1) =s(1) .e+(2+i) 变换 的 图 形 如 图 13-5。 

设 w=(3-4Dz+6+2i， 求 出 区 域 |z+1+i<1 在 w 平 面 上 的 像 。 

解 : 区 域 |z+1+ 计 <1 在 映射 n=(3 一 4)z+6+ 下 的 像 为 w+1- 中 <5 图 形 如 图 13-6。 

练习 2 设 兴 =(-1+iz-2+3i， 求 出 区 域 Re(z)>1 在 w 平 面 上 的 像 。 


设 w= 二 ， 求 出 右 半 平面 Re(z) > 在 w 平面 上 的 像 。 


解 ， 右 半 平面 在 映射 w= 二 下 的 像 为 ~]|<1， 图 形 如 图 13-7。 


13-5 图 13-6 


练习 3 设 w= 工 , 求 出 (oO xz=a，(Ox=b 在 罗平 面 上 的 像 。 


13.2 ” 复 变 函 数 的 极限 与 连续 性 


设 函 数 w=f(z) 在 有 纪 点 的 去 心 邻 域 0<|z-zj<p 内 有 定义 ， 若 任 给 e>0 ， 存 在 
5>0 (0<6p), 当 0<|z-z|<6 时 , 有 |f(z)-4|<e 成立 则 称 常数 A 为 f(z) 当 z 趋 于 az 


车 f(z) 在 区 域 G 内 每 一 点 都 连续 ， 则 称 f(z) 在 区 域 G 内 连续 。 
设 f(z)=u(x,y) +iv(x,y), 4A= 由 +inzo= 为 +iy， 则 


lim u(x, y) = uo 
X21 
y= 
lim u(x, y) = 
70 


yy0 


lim f(z)=A© 
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由 此 可 见 ， 复 数 函 数 的 极限 实质 上 相当 于 二 元 实 函数 的 极限 。 
3 
更 国人 图 形 观察 im- 产 


好 十 


7=0。 


解 ， 输入 以 下 Mathematica 语句 ， 图 形 如 图 13-8。 

Needs[ “Graphics ComplexMap''']; Needs[''Graphics ImplicitPlof ]; 

Needs["Graphics Colors'"]; Needs[ “Algebra InequalitySolve "]; 

u[x_,y ] =2x^3/(x^2 +y^A 人 2 cont ={-0.8, -0.4, -0.2, -0.1, -0.05, 0.0S, 0.1, 0.2, 0.4, 0.8}; 

ContourPlot[u[x, yj, {x, -1, 1}, {y, -1, 1}, Contours -> cont,PlotPoints -> S0， 
ColorFunction -> Hue]; 


从 图 中 可 看 出 等 高 线 越 来 越 接近 原点 (0,0)。 
实验 7 从 图 形 观 察 u(%,y) = 到 当 C5 区 (0.0) 极限 不 存在 。 
解 :图形 如 图 13-9。 从 图 中 可 看 出 ， 不 同 的 方向 趋向 于 不 同 的 值 。 
练习 4 从 图 形 观察 Ca) = 二 人 = 于，z 关 0 当 z 0 时 的 极限 不 存在 ， 


实验 8 从 图 形 观察 im(z -2z+JD=-1。 


解 : 图 形 如 图 13-10。 从 图 中 可 以 看 由 z=1+i 的 邻 域 在 映射 w= 于 +2z+1 下 的 像 , 当 z 一 1+i 
时 wmw 一 -1 。 


二 汉 
i 5 下 
1 | 
1 5 0.5 芯 A 有 
图 13-9 | 图 13-10 


实验 9 观察 多 项 式 P(z) =1-z-z+z -24+z5 在 点 2 =1 处 的 连续 性 。 
解 : 图 形 如 图 3-11。 从 图 中 可 看 出 z=1 的 邻 域 在 映射 w=1-z=- 刀 + 一 一 一 二 和 下 的 像 z 一 1 时 


wy —l。 
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图 13-11 


练习 5 观察 多 项 式 P(z)= -1+1llz-3z?-4z? -3z:+225 在 点 z =-1+i 处 的 连续 。 
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实验 十 四 级 数 


本 实验 的 目的 是 进一步 加 深 对 复 变 函数 中 级 数 概念 的 理解 。 
14.1 复数 项 级 数 
14.1.1 复数 列 与 复 级 数 
设 有 复数 列 {0,) ={a, + 过 ] =12.…) ， 这 式 吕 0 =0 +0s+…+o… 称 为 复数 项 级 


数 。S, = a +Q +…+0, 称 为 级 数 的 部 分 和 。 如 果 部 分 和 数列 {5,} 收敛， 那么 称 级 数 ya, 收 


化 ， 且 称 极限 lim 8, = 为 级 数 的 和 ， 记 为 > oa, = 8 。 否 则 ， 称 级 数 > ou 发 散 。 


n=1 n=1 


me fo} -|| te 


解 : 输入 以 下 Mathematica 语句 ， 画 出 数列 的 散 点 图 如 图 14-1。 
Needs["Graphics`ComplexMap`'"];Needs["Graphics`Colors…]; 
set = Table[{N[Sqrt[n]/n], N[L/n + 1]}, {n, 1, $0}]; 
dot = Graphics[{PointSize[0.025], Magenta, Point[{0, 1}]}]; 
gr = ListPlot[set, Prolog -> {PointSize[0.02], Green}, . 
PlotRange -> {{0.0, 1.0}, {0.0, 2.0}}, AxesLabel -> {"'x", "y"}, 
Ticks -> {Rangel[ 0, 1, 1/2], Range[0, 2, 1/2]}]; Show[gr, dot] 
从 图 中 可 以 看 到 数列 越 来 越 接 近 于 i。 然 而 实 部 趋 近 于 0 的 速度 比 虚 部 趋向 于 i 的 速度 要 
慢 。 


史 县 汐 观 察 数列 {o,}= {(+ 订 | 的 变化 趋势 。 
解 : 数列 的 散 点 图 如 图 14-2。 从 图 中 可 以 看 到 数列 是 发 散 的 。 
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练习 1 观察 下 列 数列 fo } 的 变化 趋势。 
Do] © w=(CD + 一 a CE 
实验 3 观察 级 数 立 一 的 伊 散 性 。 

解 : 级 数 交 一 的 部 分 和 数列 散 点 图 如 图 14-3。 从 图 中 可 以 看 到 级 数 收敛 。 
练习 2 观察 级 数 立 于， 的 仇 散 性 。 


实验 且 。 观察 级 数 祥 所 二 的 仇敌 性， 


n=1 


解 ， 级 数 全 信守 的 部 分 和 数列 散 点 图 如 图 14.4。 从 图 中 可 以 看 到 级 数 收 剑 ， 并 且 是 绝对 
收 全 的 。 


1 a 
0.8 
vy 
,| 0.20.40.60.8 1 1.21.41.6 ” 99 
0.2| 0. 外 
0.41 
-0.6} 0.2 
Od” 
图 14-3 图 14-4 
练习 3 观察 下 列 级 数 的 敛 散 性 。 
1 eC COSin 
(1) = (2) : 
lnn 之 2 


14.1.2 ”复数 列 的 迭代 
给 定 一 个 复 变 函数 f(z) 和 一 个 复数 z,， 令 
Zi= f(z0),2 = fa) Zn = f(z) 
由 此 生成 复数 列 {z,}， 称 为 复数 列 的 迭代 。 
实验 5 观察 由 f(z)=z?+i 所 生成 的 复数 列 {z,} 的 图 形 。 


| 


| 


2 
a5 dA0S 0 5: 4.5 


解 ， 图 形 如 图 14-5。 图 14.5 
练习 4 任 给 一 个 函数 f(z) ， 观 察 由 f(z) 所 生成 的 复数 列 {z,} 的 图 形 。 
14.2 几何 级 数 


之 1 时 ， 级 数 发 散 。 


名 


级 数 > z 称 为 几何 级 数 。 当 | <1 时 ， 闻 z= 一: 当 
n=0 n=0 过: 
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观察 级 数 祥 人 的 伍 散 性 。 


解 ， 守 > -1-i 部 分 和 数列 的 散 点 图 如 图 14.6。 


0.20.40.60.8 1 1.21.4 


14-6 


练习 5 “观察 级 数 > 二 的 仇 * 性 。 


观察 级 数 守 > 在 |*-i| < 2 内 的 仇 艇 性 。 
n=0 。 


解 ， 由 比值 判 仇 法 ， 级 数 在 |z- 计 < 2 内 收 你 。 我 们 可 以 在 更 小 的 区 域 |z- 计 <1 内 研究 它 的 部 分 
和 ， 给 出 它 的 部 分 和 的 图 形 如 图 14-7。 


5 1-i)” (z-i)' -16 4 -iD (z-i) -32 
,3 三 ee ,4 = 二 一 一 一 一 一 一 一 
Se) 和 rr pe 之 六 16 二 CT 可 


TI- (2-i)’ -64. ~ 2 
sz5) = pi rn Ar 


同时 在 |z 一 计 <1.6 内 研究 它 的 部 分 和 ， 图 形 如 图 14-8。 


图 14-7 


(a) S(z,15) do SGz20 (©) S(z,25) (d) f(z2) 
14-8 
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比较 图 14.7 和 图 14.8， 可 以 发 现 收敛 范围 越 小 收 人 速度 越 人 。 
14.3 加 级 数 
Fc.(:-o) =C,+C,(z-a)+.…+C,(z-a) 或 
> =C, +Cz+.+C 7 + 
以 上 两 式 都 称 为 坚 级 数 。 军 级 数 富 cz" 在 收敛 图 | = R 内 不 仅 收 系 ， 而 且 绝对 收 全 ， 在 收 策 


n=0 


圆 外 发 散 ， 在 收敛 圆 |z|=R 上 则 不 一 定 。 


表册 等级 数 ()= 避 [3 开 扫 (4) 的 收 全 半径 ， 并 观察 其 在 收 全 图 内 的 收 全 
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性 。 
解 ， 宕 级 数 在 |z -4| <3 内 收 化 。 画 出 寡 级 数 在 |z - 4| <1 内 部 分 和 的 图 形 如 图 14-9。 


图 14-9 《从 左 至 右 依 次 为 S(z,3)，S(z,4) ，S(z,5) 的 图 形 ) 
从 图 14-9 中 可 看 出 在 |z-4|<1<3 内 震级 数 是 收敛 的 。 
练习 6 求 出 曙 级 数 (z)=1+4z+5?z?+4z +54zt+45z +55zs+… 的 收敛 半径 ， 并 观察 
f(z) 在 收敛 圆 内 的 收敛 性 。 


求 出 寞 级 数 了 (z)= 交 二 的 收 俩 半径 ， 并 观察 其 收敛 性 。 


n=0 ™* 


解 : 窜 级 数 /(z) 的 收敛 半径 = 。 画 出 寡 级 数 在 |z <1 内 部 分 和 的 图 形 如 图 14-10。 


v 


1 
- Mr NO 
二 
RN 局 
pp 


1 
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1 
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图 14-10 从 左 至 右 依次 为 S(z,3)，S(z,4) ，S(z,5)， 了 f(z) 的 图 形 ) 
从 图 14-10 中 可 以 看 出 客 级 数 是 收敛 的 。 
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14.4 泰勒 级 数 
若 级 数 f(z) 在 圆 |z- zol|= 尺 内 解析 ， 则 在 此 圆 内 f(z) 可 展 成 苏 级 数 ， 
Fa=》 ca (14-1) 


称 为 泰勒 级 数 ， 其 中 = 二 /0(a) 称 为 泰勒 系 数 ， 


任何 解析 函数 展开 成 虞 级 数 的 结果 就 是 泰勒 级 数 ， 因 而 展开 式 (14-1〉 具 有 唯一 性 。 


实验 10 观察 2 = 了 (n+1)z" 在 jz|<1 内 成 立 。 
2 n=0 


解 : 我 们 分 别 画 出 tbe 的 部 分 和 在 1zI<r 内 的 图 形 , 其 中 +=0.6, 1.2。 


和 (n+1)z" 的 部 分 和 在 |z|<0.6 内 的 图 形 如 图 14-11， 在 |z|<1.2 内 的 图 形 如 图 14-12。 从 图 


1 
(1-2z) 


14-11 和 图 14-12 中 可 以 看 出 前 者 收敛 , 后 者 不 收敛 , 也 即 一 


= 了 (n+Dz' 在 |z|<1 内 成 立 。 
n=0 


(1-z) 


Ny Ny 
Ne/ DX 
[NBkeet 六 


(a) S(z,8) (b) S(z,12) (c) S(z,16) 四 w= 一 一 一 


图 14-12 
练习 7 改变 r 值 和 部 分 和 的 项 数 ， 重 做 实验 10， 并 说 明 为 什么 选取 在 | 二 < 0.6 的 区 域内 作 部 


分 和 图 形 。 


观察 (a) 一 = 多 z” 和 (b) 二 二 = 史 (-1) 在 ||<1 内 的 收 化 性。 


2 
1 一 Z n=0 


1 
J 22 


解 : 我 们 在 区 域 Im(z)>0 和 |z|<0.9 内 分 别 画 出 级 数 
14-14。 从 图 中 可 以 看 出 它们 均 收 敛 。 
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,一部分 和 的 图 形 如 图 14-13， 图 
1 十 Z 


1 
(a) S(z,24) (b) $(z,32) (c) S(z, 40) {dD) w= 


图 14-14 
1 的 图 形 相同 ? 
l=Z l+z 
练习 9 改变 部 分 和 的 项 数 或 区 域 ， 重 做 实验 11。 
实验 12 求 出 f(z)=(sinz)’ 的 泰勒 级 数 ， 并 画 出 部 分 和 在 区 域 ||<12 和 0<argz < 3t 内 的 


练习 8 为 什么 f(z)= 与 f(z)= 


图 形 。 


3 和 2m+1l 
i; Zz Zz n 2 
; 二 Zz 一 一 十 一 一 … 十 {-1 一 一 一 十 …,|z| <co， 
和 ) rr a 


CCD).3 oo 总 -CD*3.9 2 
0 Dg 二 4Qn+D! 


和 
3 ， 1 . oo (-1)” Zt . a 
4 0 4 Pe . (2n+1)! 4 


画 出 其 部 分 和 图 形 见 图 14-15。 


(a) S(z,3) (b) S(z,6) (c) S(z,9) (d) w= (sin z)’ 


图 14-15 
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练习 10 “改变 部 分 和 的 项 数 或 区 域 ， 重 做 实验 12。 
14.5 洛 朗 级 数 

在 圆 |z-a|<R 内 解析 的 函数 f(z) 可 以 展 成 宕 级 数 > c, (zw) ， 设 f(z) 在 圆 环 域 
R<|z 一 zo|< 民 内 处 处 解析 ， 则 . 

f(z)= >ec 一 Z0) (14-2) 


其 中 < = 无 和 志 2 -5m=0 刀 dt2…，C 为 加 环 域内 绕 书 的 任何 一 条 正 向 简单 闭 由 
线 。 

式 (14-2) 称 为 函数 f(z) 在 圆 环 域 及 <|z 一 zj| < R 内 的 洛 朗 展开 式 ， 右 端的 级 数 称 为 f(z) 
在 此 圆 环 域内 的 洛 朗 级 数 。 

一 个 在 菜 一 贺 环 域内 解析 的 函数 展开 为 含有 正 、 负 备 项 的 级 数 是 叭 一 的 ， 这 个 级 数 就 是 
f(z) 的 洛 朗 级 数 。 
在 |d|>0 区 域内 将 /(z)= 与 展开 。 


1 2 3 A 
址 + 地 -+ 训 + 二 + 所 + 厨 +…， 作 出 当 z=x 为 实数 时 的 部 分 和 图 形 如 图 14-16， 
C4 4 


1 
人 3 4 51 6 


作出 f(z) 在 |z 一 中 <0.999 区 域内 的 部 分 和 图 形 如 图 14-17。 


1 
由 
TD697 8 
14-16 14-17 
从 图 中 可 看 出 f(z) 的 洛 朗 级 数 具 有 很 好 的 收敛 性 质 。 
研究 函数 f(z) = 一 的 洛 朗 级 数 展开 。 
2+Zz—2z 


解 ， 下 面 讨论 (2) = 了 -的 三 种 不 同 的 洛 朗 级 数 形式 : 


1 1 
二 一 一 十 一 -一 一 
/© l+z 2~-z 


1 1 
令 ee = 一 ~- 则 
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su(z),|z|<1 
$12 (z),|z|>1 


sa(z),lz|<2 
$22 (z),lz|>2 


i-| 


se | 
其 中 


si(Z)=1—z+z -2 + —..., |z|<1 
1 1 1 1 

CC ee S| 

12 z z2 2 z4 |z| 


1{, z z 2z 
= 二 | 1+ 二 + 二 二 二 十 | <2 
S21(2) | 7 4 8 jz 


1 2 4 8. 
on | 二 >2 
zz zx 2 


(1) 在 0<|z|<1 内 


3 3 9 , 15 , 33, 
一 一 一 一 一 一 一 二 一 一 一 …， 
L(z)=s (z)+s2(z) > 了 zt et 


令 s(x) 5 = 五 (xz)， 作 出 s(z) 和 五 (xz) 的 图 形 如 图 14-18。 


2+X—x 
从 图 中 可 以 看 出 在 0<x<1 内 工 (x) 收 伍 于 s(x) 。 对 于 复 平面 上 ,我们 需要 选择 接近 于 z=0 
的 圆 盘 ， 我 们 不 妨 选 取 |z|< 0.6， 分 别 作 f(z) 和 五 (z) 的 部 分 和 图 形 如 图 14-19， 从 图 14-19 中 
我 们 看 到 五 (z) 收敛 于 f(z)。 8 
若 我 们 选择 |zj < 0.9, 作出 五 (z) 的 部 分 和 图 形 如 图 14-20。 从 图 14-20 可 以 看 出 收敛 速度 较 
慢 ， 我 们 需要 增加 部 分 和 的 项 数 。 


eS 
Ce 
HHS 


AR 
We 全 


图 14-18 


(2) 在 1<|z|<2 内 


1 1 1 1 1 1 z xz 
LDL,(z)= $2(2)+ 581(2) = + 一 十 二 十 一 二 一 十 … 
0 艺 - 记过 4 8 


$= 作出 s(x) 和 蕊 (x) 的 图 形 如 图 14-21。 从 图 14-21 可 看 出 在 


1<x<2 内 ， 工 (x) 收敛 于 s(x)。 


对 于 复 平面 上 ,我 们 需要 选择 贺 环 域 1<|z|<2 的 中 间 部 分 圆 环 域 ， 不 妨 选取 1.3 <|z| <1.6， 
分 别 作 出 f(z) 和 工 (z) 的 部 分 和 图 形 如 图 14-22。 从 图 14-22， 我 们 看 到 元 (z) 收敛 于 f(z) 。 
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忆 有 中 和 


12 14 1.6 18 2* 


图 14-21 


(3) 在 | 十 >2 内 
1023 513 255 129 63 33 15 
L(z)= 5 (2)+ s2 (ns 


A 
ob 
令 s()= 汪 一 ,5= L(x), 作 出 s(x) 和 二 (x) 的 图 形 如 图 14-23。 从 图 14-23 可 看 出 在 x>2 


内 ， 蕊 (x) 收敛 于 s(x)。 
对 于 复 平面 上 ， 我 们 可 以 选择 |z| >3， 在 |z|>3 时 分 别 作出 f(z) 和 (z) 的 部 分 和 图 形 如 


14-24。 

从 图 14-24， 我 们 看 到 工 (z) 收 敛 于 f(z)。 

如 果 选 择 接 近 |z|=2 的 区 域 ， 如 2.2<|z|<4, 我 们 作出 二 (z) 的 部 分 和 图 形 如 图 14-25。 从 
图 14-25， 我 们 看 到 五 (z) 收敛 比较 慢 ， 需 要 增加 部 分 和 的 项 数 。 


vy 


和 


图 14-23 图 14-24 图 14-25 


练习 1 由 以 上 实验 ， 你 能 得 出 有 关 洛 朗 级 数 收敛 区 域 与 收敛 速度 有 什么 关系 吗 ? 

练习 12 选取 不 同 的 收敛 域 和 改变 部 分 和 的 项 数 ， 重 复 实验 14， 并 验证 你 的 结论 。 今 

练习 13 将 下 列 各 函数 在 指定 的 圆 环 域内 展开 成 洛 朗 级 数 : 
1 1 


一 一 一 一 一 一 一 2 ; 一 一 一 一 一， —ll<1;l 一 ; 
< i 0<|z-]|<11<|z-?<+eo 


(1) 


(3) 一 一, 在 以 i 为 中 心 的 圆 环 域内 ; (4) sn 二 ,在 z=1 的 去 心 邻 城内 。 


zz—i)" 
并 观察 其 收敛 情况 。 
练习 14 函数 tan 二 能 否 在 加 环 域 0<|d < R(0 < 有 < + ) 内 展开 成 洛 朗 级 数 ? 


练习 15 将 函数 Ja) = 中 号 一 展开 成 洛 朗 级 数 。 
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实验 十 五 狐 立 奇 点 


本 实验 的 目的 是 进一步 理解 解析 函数 在 孤立 奇 点 邻 域内 的 性 态 。 

如 果 浮 数 f(z) 虽 在 zo 不 解析 ,但 在 z 的 某 一 个 去 心 邻 域 0<iz 一 zo lk6 内 处 处 解析 ,那么 z 
称 为 f(z) 的 孤立 奇 点 。 

若 2 为 f(z) 的 孤立 奇 点 ， 则 必 存 在 5 > 0 ， 使 得 f(z) 于 圆 环 0<z- zkK5 内 解析 。 由 实 
验 十 四 知 ， f(z) 在 此 圆 环 内 可 展 成 洛 朗 级 数 : 


f(D a) + (a) (15-1) 
若 (15-1) 式 中 不 含 、 只 含有 限 个 、 含 无 穷 多 个 z- zx 的 负 宕 项， 那么 分 别称 为 f(z) 的 可 
去 奇 点 、 极 点 、 本 性 奇 点 。 
实验 1 研究 函数 f(z) = 一 < 在 z=0 点 邻 域 的 性 态 。 


解 ，z= 0 为 f(a) = Sa 的 可 去 奇 点 。 f(z) 可 展开 为 治 朗 级 数 


本 
f (2)=1 人 
对 于 实数 情形 ， 信 JOD= ssCD=1- 天 + …， 分 别 作出 /CD 和 s(x) 的 部 分 和 图 


形 如 图 15-1。 从 图 :15-1 中 可 以 看 出 (区 在 = 0 。 


图 15-1 
对 于 复数 情形 ,在 z=0 的 邻 城内 分 别 画 出 /(e) = :2 实 部 和 虚 部 的 三 维 图 形 和 等 高 线 图 


如 图 15-2、 图 15-3。 


图 15-3 
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练习 1 研究 函数 /(z)= 2223 在 z= 0 邻 域内 的 性 态 。 
六 研究 函数 /CD= 生 在 z=0 邻 域内 的 性 态 。 


解 ， zc-0 为 /Co)= 乞 的 -级 极点 。 f(z) 可 展开 为 洛 朗 级 数 
外 舞 半 各 鹤 旬 后 各 区 汪 锥 车 匠 
WO 


证 钴 性 形 _e 本 
对 于 实数 情形 ， 0 分 别 作出 f(x) 和 s(x) 的 


部 分 和 图 形 如 图 15-4。 对 于 复数 情形 ， 在 z=0 的 邻 域内 分 别 画 出 (oO = 二 实 部 和 虚 部 的 三 维 
图 形 和 等 高 线 图 如 图 15-5、 图 15-6。 


图 15-5 


实验 3 研究 函数 /(z) = 在 =0 令 域内 的 性 态 ， 


Sin < 
8 
和 


解 ，z=0 为 f(z)= 一 ;的 二 级 极点 。/f(z) 可 展开 为 


z 6 120 5040 
分 别 考 虑 实数 、 复 数 情形 ， 类 似 于 实验 2， 得 到 图 形 15-7、 图 形 15-8、 图 形 15-9。 
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图 15-7 
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图 15-9 
练习 2 试 比 较 实验 2 与 实验 3 中 的 图 形 ， 你 能 得 出 什么 结论 ? 


实 弱 轴 。 研究 函数 7 = zs 在 z=0 邻 域内 的 性 态 。 


解 : z=0 为 函数 7(z)= 2sin 2 的 本 性 奇 点 ， 类 似 于 实验 2， 得 到 图 形 如 图 15-10、 图 15-11、 
图 15-12。 


0 0 0.2 0 To -0.4-0.2 0 0.2 0.4 


图 15-11 图 15-12 
练习 3 试 比较 实验 4 与 实验 3 中 的 图 形 ， 你 能 得 到 什么 结论 ? 
练习 4 求 下 列 函 数 ,Fa) 在 扩充 复 平面 上 的 奇 点 ， 判 别 其 类 型 ， 并 研究 函数 f(z) 在 这 些 邻 域内 
的 性 态 。 


2 
er! 
ey 
e 一 | 


7 


Zz zs +1 
(z-DG-z27 


工 
(a) 人 (cje 二 (d) 


实验 6 研究 函数 /(z)=zsinz 在 z=0 邻 域内 的 性 态 。 
解 : z=0 为 /(z)=zsinz 的 三 级 零点 。 类 似 于 实验 2, 得 到 图 形 如 图 15-13、 图 15-14、 图 15-15。 


1 | 
| 


了 777 


15-15 
练习 5 观察 实验 5 的 图 形 并 与 实验 3 中 的 图 形 比较 ， 你 能 得 出 极点 与 零点 有 什么 关系 吗 ? 
练习 6 研究 函数 F(z)=zasinz 在 z=0 邻 域内 的 性 态 。 


实验 6 求 出 函数 f(z) = 的 极点 和 零点 ， 并 决定 其 级 数 ， 


解 : z=0 为 1(z)=* 的 可 去 奇 点 ; z=ANn= 土 1,+2,… 为 f(z) 的 一 级 等 点 ， = 
n= 土 ], 二 2,… 为 f(z) 的 一 级 极点 。 类 似 于 实验 2 得 到 图 形 如 图 15-16、 图 15-17、 图 15-18。 


图 15-17 实 部 图 形 图 图 15-18 虚 部 图 形 
练习 7 求 出 函数 (x) = Ze2 的 极点 和 零点 ， 并 决定 其 级 数 。 


要 玩 所 研究 函数 /(z) = 一 的 极点 。 


S$z4+26z2 +5 
1 i 
: = ,diy5 ,wy =ivV5 为 E 四 个 一 级 极点 。5 以 于 
解 ， 2 z 六 有 忆 =-iV5 ,zy =iV5 为 函数 f(z) 的 四 个 一 级 极点 。 采 用 类 似 于 实验 2 
的 方法 ， 得 到 图 形 如 图 15-19、 图 15-20、 图 15-21。 


图 15-19” 实 部 的 图 形 
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图 15-21 1f(z)! 的 图 形 
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实验 十 六 共 形 映射 


本 实验 的 目的 是 从 图 形 上 了 解 区 域 在 共 形 映射 下 的 变化 以 及 几 种 常见 共 形 映射 的 性 质 。 
16.1 共 形 映射 的 基本 性 质 

设 函 数 w= /(z) 在 2 点 的 邻 域 内 有 定义 ， 且 在 za 具有 保 角 性 和 伸缩 率 的 不 变性 ， 那 么 映 
射 w= F(z) 在 二 点 是 共 形 的 ， 或 称 w= f(z) 在 如 点 是 共 形 上 映射。 如 果 映 射 m= f(z) 在 区 域内 的 
每 一 点 都 是 共 形 的 ， 那 么 称 w= f(z) 是 区 域内 的 共 形 映射 (或 称 为 保 角 映 射 )。 

如 果 函 数 w= f(z) 在 纪 点 解析 ， 且 f(z,0)#0， 那 么 映射 w= f(z) 在 羽 点 是 共 形 的 。 
实验 1 求 出 w=f(z)=cosz 在 点 i，1-i 和 z+i 处 的 旋转 角 @ =arg 了 “(z) 和 伸缩 率 |f“(z)| 。 
解 ， (1) 在 z=i 的 邻 域内 ，&=- 本 ,ojl=sinhl ， 画 出 映射 前 后 的 图 形 如 图 16-1。 


图 16-1 
(2) 在 z=1-i 的 邻 域内 ，a =T-arctan cotltanh1|， [f(a0)| = Veosh? 1sin7 + cos Lsinh?1 
画 出 映射 前 后 的 图 形 如 图 16-2。 
(3) 在 z=7+i 邻 域内 ，= 节 ,|/'(zj=sinhl, 画 出 映射 前 后 的 图 形 如 图 16-3。 


| FO 
门生 人 和 人 7 
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图 16-2 
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图 16-3 
实验 2 画 出 映射 w= f(z)=zz 的 图 形 。 
解 : 在 映射 m= 了 f(z)=z 下 区 域 的 图 形 如 图 16-4。 


图 16-4 
练习 1 比较 实验 1 与 实验 2 的 图 形 ， 你 能 得 出 什么 结论 ? 


16.2 分 式 线性 映射 


w= +2 (ad -bc# 0) 确定 的 映射 称 为 分 式 线性 映射 。 


~catd 
因为 w= 吧 + 避 有 单 值 的 反 函 数 z= 二 2+b (ad -5c#z0), 故 其 道 映射 z= -et 也 
CZ+d cw—a ke 
是 分 式 线性 映射 。 


实验 3 观察 w= /CD)= 一 并 将 单位 加 组 辕 <1 变 成 上 半 平 面 Im(w) >0，。 
解 ， 画 出 映射 前 后 的 图 形 如 图 16-5。 
从 图 16-5 我 们 看 到 w= f(z) 确 实 将 单位 网 盘 |z|<1 变 成 上 半 平面 Im(w) > 0。 


实验 4 构造 一 个 分 式 线性 映射 m= 了 f(z)， 使 得 f(-)=-1,f(1)=0,f()=1。 
i(-1+2) 
l+z 


解 : 由 交 比 不 变性 ， f(z)= 一 ， 画 出 映射 的 图 形 如 图 16-6。 
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练习 2 构造 一 个 分 式 线 性 映射 w= F(z) ， 使 得 F(-2) = -1 F(-1-iD=0,jF(0O)=1。 


观察 w= f(z) = 全 +2 将 贺 盘 |z+ 叶 <1 映 射 为 上 半 平 面 Im(z) >0。 


(1+i)z+2 

解 : 画 出 映射 前 后 的 图 形 如 图 16-7。 

构造 一 个 分 式 线性 映射 m= F(z) ， 它 将 区 域 |z- ?<2 和 |z- 直 =1 的 外 部 变 成 一 个 水 平 
的 带 状 区 域 。 


-4) 


解 : 我 们 选择 三 个 点 z =4,z, =2+2i,z =0 分 别 映射 为 w =0w =Lw =o%; 则 (= 下 


忆 


画 出 映射 的 图 形 如 图 16-8。 


人 xd 
和 Ps 


图 16-7 图 16-8 
练习 3 求 分 式 线性 映射 w= F(z) ， 它 将 圆 盘 |z|<2 映射 成 右 半 平 面 Re(w) >0, 且 使 得 
隐 


f(0=Larg f (0)=-- 


16.3” 几 个 初等 函数 所 构成 的 映射 


16.3.1 ”每 函 数 


由 寡 函 数 w = z (2 过 2) 所 构成 映射 的 特点 是 : 把 以 原点 为 顶点 的 角形 域 映 射 为 以 原点 为 顶 
点 的 角形 域 。 


映射 w= f(z)=z’ 通 常 将 水 平 线 或 铅 直线 映射 为 直线 或 抛物 线 。 
(1) 求 出 x=a 的 像 ，(2) 求 出 y=b 的 像 ，(3) 求 出 射线 > > 0,8 = 和 圆 r=c 所 围 成 区 域 的 像 。 
解 ; (1) x=a 的 像 为 扫 物 线 4=a? -了 
a 


QQ) y=b 的 象 为 抛物 线 4=-b*+ 了 了: 画 出 图 形 如 图 16-9。 
(3) 射线 r> 0,9 =c 和 圆 r =c 所 围 成 区 域 的 像 为 r > 0,9 =20,r =c*， 图 形 如 图 16-10。 
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映射 w= 了 (z)= 全 是 |d|<1 内 的 共 形 映射 ， 它 将 上 半 平面 Im(z) > 0 映射 为 上 半 


平面 Im(w) >0。 
解 : 天 出 映射 前 后 的 图 形 如 图 16-11。 
练习 4 试 给 出 实验 8 中 边界 的 映射 关系 。 


16.3.2 ”指数 函数 

由 指数 函数 w = ez 所 构成 的 映射 的 特点 是 ， 把 水 平 的 带 形 域 0< Im(z) <a ,(a 三 27) 映射 
成 角形 域 0<argw<a。 
实验 9 观察 映射 w=e 将 矩形 域 R={(x,y)a<x<b,c<y<d} 映 射 为 扇形 域 的 图 形 。 


解 : 选取 逢 形成 为 R= -1<x< -<y< 下， 画 出 图 形 如 图 16-12。 


图 16-11 图 16-12 


图 形 。 
解 : 映射 前 后 的 图 形 如 图 16-13。 


nD 
Wy 


Wh 


XS HP 


> 

AN 
- 
Wh 

WY 


SS 
0 
1 


> 
nN 
Ni 


i 


nn 
HD 
A 
| 
|] 


Qe 
SN 


CO 
二 
SS 


CA 


5 
CA 
pH 
| | 
S 
< 


(b) 


16-13 


练习 5 斌 分别 给 出 y=0 和 y =x 映射 后 的 曲线 。 
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实验 十 七 “概率 论 的 基本 概念 


概率 论 是 研究 随机 现象 数量 规律 的 一 门 数学 学 科 ， 它 是 通过 研究 随机 试验 来 研究 随机 现 
象 的 。 本 实验 的 目的 是 将 随机 试验 可 视 化 , 直观 理解 概率 论 中 的 一 些 基 本 概念 ， 从 频率 与 概率 
的 关系 来 体会 概率 的 统计 定义 ， 并 初步 体验 随机 模拟 方法 。 


17.1 频率 与 概率 


| 抛 硬币 试验 。 
(1) 模拟 掷 一 枚 均匀 硬币 的 随机 试验 (可 用 0 一 1 随机 数 来 模拟 试验 结果 )， 取 n=100， 模 
拟 n 次 指 硬 币 的 随机 试验 。 记 录 试 验 结果 ， 观 察 样本 空间 的 确定 性 及 每 次 试验 结果 的 侦 然 性 ， 
统计 正面 出 现 的 次 数 ， 并 计算 正面 出 现 的 频率 ; 

(2) 取 试 验 次 数 n=1000 ， 将 过 程 (1) 童 复 三 组 ， 比 较 三 组 试验 结果 中 正面 出 现 的 频率 ， 你 
能 得 到 什么 结论 ? 
解 : 输入 以 下 Mathematica 语句 : 
<< Statistics` 
n= 100; t= {};Do[t = Append[t, Random[Integer]l, {i nj];data = Frequencies[t); 
times = data[l[2]][[1]];p = N[times/n] 

比较 各 组 正面 出 现 的 频率 , 可 以 看 到 : 当 试 验 次 数 相 同时 , 不 同 组 试验 得 到 的 频率 也 往往 
不 同 。 这 表明 : 频率 具有 随机 性 ; 另外 , 在 多 次 重复 试验 中 ， 出 现 正 面 的 频率 在 一 个 定 值 附近 
摆动 ,而 且 随 着 试验 次 数 的 增加 ， 一般 来 说 ， 其 摆动 越 小 ,观察 到 的 大 偏差 也 越 稀少 ,呈现 出 
一 定 的 稳定 性 。 
练 改变 试验 次 数 n， 重 做 实验 1。 
实验 2 高 尔 顿 钉 板 试验 。 

这 个 试验 是 英国 科学 家 高 尔 顿 设计 的 ， 具 体 如 下 : 自 板 上 端 放 一 个 小 球 ， 任 其 自由 下 落 。 
在 其 下 落 过 程 中 ， 当 小 球 碰 到 钉子 时 从 左边 落下 的 概率 为 p， 从 右边 落下 的 概率 为 1-p， 磁 到 
下 一 排 钉 子 又 是 如 此 ,最 后 落 到 底板 中 的 某 一 格子 。 因 此 任意 放 入 一 球 ,， 则 此 球 落 入 哪个 格子 
事先 难以 确定 。 设 横 排 共有 m=20 排 钉子 ， 下 面 进行 模拟 试验 : 

(1) 取 p=0.5， 自 板 上 端 放 入 一 个 小 球 ， 观 察 小 球 落下 的 位 置 ， 将 该 试验 重复 作 5 次 ， 观 
察 5 次 试验 结果 的 共性 及 每 次 试验 结果 的 偶然 性 ; 

(2) 分 别 取 p=0.15, 0.5, 0.85， 自 板 上 端 放 入 nn 个 小 球 ， 取 n=5000， 观 察 n 个 小 球 落下 后 
呈现 的 曲线 。 

解 : 输入 以 下 Mathematica 语句 ， 得 到 不 同 的 p 值 下 5000 个 小 球 落 入 各 个 格子 的 频数 的 
直方 图 如 图 17-1。 
<< Statistics` 
<< Graphics`Graphics` 
Galton[n_Integer, m_Integer, p_] := Module[{}, dist = {}; 
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For[l = 1, 1 <= n, j++, k = 0; 

t= Table[Random[BernoulliDistribution[p]]j {i, 1, m}}; 

Do[HIt[{i]] == 1, k++, k--], {i, 1, m}]; dist = Append[dist, k]; 

pp = Frequencies[dist];]; Histogram[dist, BarStyle -> {RGBColor[0, 0, 1]}];] 
p=0.15;n = S000; m = 20; Galton[n, my, p] 
p=0.5;n=5000; m = 20; Galton[n, m, p] 
p=0.85; n = 5000; m = 20; Galton[n, m, p] 


0. 5. 10. 15. 20., "15.=10,. 5. 0, 5, 1D. 15. 15. -i0. -5 0. 
图 17-1 《〈 自 左 至 右 忆 依次 为 0.15,0.5,0.85) 
由 图 17-1 可 以 看 出 : 车 小 球 碰 钉 子 后 从 两 边 落下 的 概率 发 生变 化 ， 则 高 尔 顿 钉 板 试验 中 
小 球 落 入 各 个 格子 的 频数 发 生变 化 ， 从 而 频率 也 相应 地 发 生变 化 。 而 且 ， 当 p>0.5， 曲 线 峰 值 
的 格子 位 置 向 左 偏 ， 当 p<0.5， 曲 线 峰值 的 格子 位 置 向 右 偏 。 
练习 2 取 p=0.5， 自 高 尔 顿 钉 板 上 端 放 入 nn 个 小 球 ， 取 n=5000， 观察 n 个 小 球 落下 后 呈现 的 
曲线 ， 将 该 试验 重复 多 次 ， 观 察 多 次 试验 中 小 球 落下 后 呈现 的 曲线 有 无 变化 ? 
练习 3 若 小 球 从 左边 落下 的 概率 分 别 为 p =0.3，p =0.7， 重 做 实验 2， 你 能 得 到 什么 结论 ? 
练习 4 改变 n ， 重 做 实验 2， 试 从 理论 上 解释 你 所 得 到 的 结果 。 
练习 5 〈 掷 股子 试验 ) 模拟 撕 一 颗 均 匀 的 崩 子 ， 可 用 产生 1~6 的 随机 整数 来 模拟 试验 结果 。 
(1) 作 n=200 组 试验 ， 统 计 出 现 各 点 的 次 数 ， 计 算 相 应 频率 并 与 概率 值 1/6 比较 ; 
(2) 模拟 n=1000, 2000, 3000 组 撕 骨 子 试验 ， 观 察 出 现 3 点 的 频率 随 试 验 次 数 n 变 
化 的 情形 ， 从 中 体会 频率 与 概率 的 关系 。 


17.2 古典 概 型 


古典 概 型 所 描述 的 随机 试验 满足 以 下 两 点 : 
(1) 试验 的 样本 空间 只 包含 有 限 个 元 素 ; 
(2) 试验 中 每 个 基本 事件 发 生 的 可 能 性 相同 。 
设 随 机 试验 的 基本 事件 总 数 为 六 ， 事 件 4 包含 x 个 基本 事件 ， 则 4 发 生 的 概率 为 
p(A)= 大 = 4 所 包含 基本 事件 个 数 
n ”试验 的 基本 事件 总 数 
实验 3 (抽签 试验 ) 有 十 张 外 观 相 同 的 扑克 牌 ， 其 中 有 一 张 是 大 王 ， 让 十 人 按 顺序 每 人 随机 
抽取 一 张 ， 讨 论 谁 先 抽 出 大 王 。 
甲 方 认 为 ， 先 抽 的 人 比 后 抽 的 人 机 会 大 。 
乙方 认为 : 不 论 先 后 ， 他 们 抽 到 大 王 的 机 会 是 一 样 的 。 
究竟 他 们 谁 说 的 对 ? 
下 面 我 们 作 模 拟 试验 ， 用 1~10 的 随机 整数 来 模拟 试验 结果 。 在 1~10 十 个 数 中 ， 假 设 10 
代表 抽 到 大 王 ， 将 这 十 个 数 进行 全 排 ，10 出 现在 哪个 位 置 ， 就 代表 该 位 置 上 的 人 模 到 大 王 。 
输入 以 下 Mathematica 语句 : 
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<< Statistics` 
chouqian[n_Integer] := Module[{times, tt}， 
times = Table[Random[Integen {1, 10}], {i n}]; 
tt = Frequencies[times]; Print[tt]; Table[NEtt DEY), {i, 1, 10}]] 
n =100; chougqian[n] 
n = 1000; chougian[n] 
n = 5000; chouqian[n] 
(1) 模拟 该 试验 100 次 ， 记 录 每 次 试验 中 10 出 现 的 位 置 ， 并 将 统计 结果 填 入 表 17-1; 
(2) 模拟 该 试验 1000, 5000 次 ， 统 计 试 验 结果 并 填 入 相应 表格 中 ， 你 能 得 到 什么 结论 ? 
表 17-1 


本 度 贡 区 测 这 当世 于 家 


抽 到 大 王 的 次 数 
抽 到 大 王 的 频率 /% 


事实 上 ， 若 记 4; 表 示 第 ;个 人 抽 到 大 王 这 一 事件 ， 则 


故 每 个 人 抽 到 大 王 的 机 会 均等 。 
实验 4 〈 生 日 问题 ) 美国 数学 家 伯 格 米 尼 曾 经 做 过 一 个 别开生面 的 试验 : 在 一 个 盛况 空前 、 
人 山 人 海 的 世界 杯 足球 赛 赛场 上 ， 他 随机 地 在 某 号 看 台 上 召唤 了 22 个 球迷 ， 请 他 们 分 别 写 下 
自己 的 生日 ， 结 果 竟 发 现 其 中 有 两 人 同 生日 。 
怎么 会 这 么 凑巧 呢 ? 
解 : 下 面 我 们 首先 通过 计算 机 模拟 伯 格 米 尼 试验 体验 一 次 旧事 重 温 (用 22 个 1~ 365 的 可 重 
复 随 机 整数 来 模拟 试验 结果 )。 
(1) 产生 22 个 随机 数 , 当 出 现 两 数 相同 时 或 22 个 数 中 无 相同 数 时 , 试验 停止 并 给 出 结果 ; 
(2) 重复 (1) 1000 次 ， 统 计 试 验 结果 并 填 入 表 17-2; 
(3) 产生 40，50，64 个 随机 数 ， 重 复 (1)，(2)。 


同 生日 次 数 


同 生日 频率 


fn 
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事实 上 , 设 随机 选取 人 , 4 至 少 有 两 人 同 生 日 }, 则 = { 生日 全 不 相同 }，P (全 = 
py Fos a 
而 P(A)=1=P(4)=1— 3 sf(7) 


则 PG) 随 人 数 + 变 化 的 曲线 (7) 如 图 17-2。 


1 Ee 


17-2 

到 (和 对 问题 配对 问题 是 现实 生活 中 广泛 存在 的 一 类 概率 问题 。 如 球 箱 号 码 配 对 、 钠 
是 和 锁 配对 、 信 封 和 信 配 对 、 鞋 配对 等 等 。 

设 有 两 副 不 同 花 色 的 扑克 牌 ， 每 副 各 有 9 张 不 同 的 牌 ， 把 这 两 副 牌 都 均匀 地 洗 好 之 后 ， 
再 将 两 副 牌 依 它们 的 次 序 逐 一 翻 看 对 比 , 若 两 副 牌 中 同一 位 置 上 的 两 张 牌 恰好 相同 。 我们 就 说 
有 一 个 相 含 或 配对 。 求 至 少 有 一 个 配对 的 概率 ? 
解 : 不 妨 假 设 第 一 副 牌 按 自然 顺序 排 好 ， 而 另 一 副 牌 共有 9! 种 排列 ， 出 现 每 种 排列 的 概率 都 
1 


ri 


设 B-{ 至 少 有 一 个 配对 )，Ar {第 i 个 位 置 上 出 现 配对 )，i=12,…,9， 记 3 = 六 P(A)， 
5, As 号 = 之 P(44A) ，, "5, 二 P(AA,…Ah) ,于 是 PCB)=P 人 2 上 3 一 3 十 


9 -…+8S。。 由 于 和 发 生 当 且 仅 当 第 二 副 牌 中 的 ! 排 在 第 ! 个 位 置 ， 而 其 余 的 8 张 牌 可 以 任意 
顺序 排列 ， 故 P(4)= ib 


” 同 理 ， 
A 
P(44)=T = gai 
P(A A)= Ti<k, 
-kl 
在 每 个 5 中 恰 有 0 项 ， 其 中 每 项 都 等 于 -人 }， 央 此 5, = 小。 于 是 可 得 
1 1 1 | 
P(B)=1-~+-…+—~1-e! ~0.63212 
2! 3! 9! 


可 以 看 到 ， 没有 一 个 配对 的 概率 近似 等 于 蕉 。 与 人 们 直观 认为 的 此 概率 应 接近 于 1 差别 


较 大 。 输 入 以 下 Mathematica 语句 : 
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<<DiscreteMath Permutations™ 
m=9;a[0]=RandomPermutation[m];Table[{j,a[Ol[0]]},{j,1,m}] 
match[m_Integer,n_Integer]:=Module[{a,b,u,z,i}, 
Do[afi=RandomPermutation[m]; Do[b[{j]=If[afi)[(]]==j,1,0],{j,1,m)}]; 
ui = Sem[bDj],{j,1m}]; z[i]=If[fu[i]>=1,1,0],{i,1,n}]; 
ProportionOfAtLeastOne=N[Sum[z[i],{i,1,n}]]; 
frequence=N[ProportionOfAtLeastOne/n];RealProb=-N[Sum{[C-1) 人 /i!,{i,1,m}]]; 
AveNumberMatches=N[Sum({u[il,{i,1,n}]/n]; 
tl=Table[{i,z[i]},{i,1,n}];t2=Tablef{j,a[12][[j])},{j,1,m}]; 
Print[ProportionOfAtLeastOne];Print[frequence];] 
m = 9; n = 300; match[m,n]; m = 9; n = 1000; match[m, mn]; 


m=9;n = 2000; match[m, n]; 


(1) 用 1.9 的 随机 闽 数 模拟 第 二 副 牌 的 试验 结果 ， 并 与 第 一 副 牌 的 自然 顺序 1~9 相 比 较 ， 
统计 出 现 配 对 次 数 ; 
(2) 将 〈1) 重复 300 次 ，1000 次 ，2000 次 ， 统 计 出 现 配 对 次 数 并 填 入 表 17-3: 
表 17-3 


试验 次 数 出 现 配 对 次 数 出 现 配 对 频率 | 理论 计算 (至少 有 一 个 配对 的 概率 | 《至 少 有 一 个 配对 的 概率 )》 


0.646667 
0.632 
1229 0.6145 


练习 6 从 6 双 不 同 的 手套 中 任 取 4 只 ， 模 拟 求 下 列 事件 发 生 的 概率 并 与 理论 值 比较 : 

(1) 没有 成 对 的 手套 ; (2) me (3) 恰 有 两 双手 大 ,。 
练习 7 袋 中 装 有 1,2…, NN 号 的 球 各 一 只 ， 采 用 〈1) 有 放 回 ; (2) 不 放 回 方式 摸 球 ， 试 模拟 
计算 在 第 大 次 摸 球 时 首次 摸 到 1 号 球 的 频率 并 与 对 应 概率 值 比较 。 
练习 8 〈 德 梅 尔 悖 论 ) 将 一 颗 货 子 投掷 4 次， 至少 出 1 次 6 点 与 将 两 颗 货 子 投掷 24 次 ， 至 少 
出 一 次 双 6 点 的 机 会 一 样 ， 通 过 模拟 试验 验证 其 正确 与 否 ? 

(1) 将 一 颗 般 子 投掷 4 次 的 试验 进行 100 组 , 统计 每 组 中 是 否 出 6 点, 若 出 6 点 记 数 一 次 ， 
可 用 1~6 随机 整数 来 模拟 试验 结果 。 增 加 试验 组 数 为 1000，2000。 记 录 结 果 。 

(2) 将 两 颗 货 子 投掷 24 次 的 试验 进行 100 组 , 统计 每 组 中 是 否 双 6 点 , 车 出 双 6 点 计数 1 
次 。 增 加 试验 组 数 为 1000,2000。 记 录 结 果 且 与 (1) 的 结果 比较 ， 并 从 理论 上 解释 原因 。 


17.3 几何 概 型 


儿 何 概 型 所 描述 的 随机 试验 满足 : 

(1) 试验 的 样本 空间 是 一 个 可 度量 的 几何 区 域 ( 这 个 区 域 可 以 是 一 维 、 二 维 , 甚至 n 
维 )。 

(2) 试验 的 每 个 基本 事件 发 生 的 可 能 性 都 一 样 。 即 样本 点 落 入 某 一 个 可 度量 的 子 集 4 的 可 
能 性 大 于 与 4 的 几何 测度 成 正比 ， 而 与 4 的 形状 及 位 置 无 关 。 
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在 几何 概 型 随机 试验 中 ， 设 4 为 样本 空间 @ 的 一 个 可 度量 的 子 集 ， 则 随机 事件 “点 落 入 
区 域 4” 的 概率 定义 为 
”A 的 几何 测度 
P(A4)= 的 风 何 测度 
其 中 几何 测度 可 以 是 长 度 、 面 积 或 体积 。 
(会 面 问题 ) 甲 、 乙 二 人 约定 八 点 到 九 点 在 某 地 会 面 ， 先 到 者 等 20 分 钟 后 离 去 ， 试 
能 会 面 的 概率 。 
解 ， 由 于 甲 、 乙 二 人 在 [0,60] 时 间 区 间 中 任何 时 刻 到 达 是 等 可 能 的 ， 若 以 X，Y 分 别 表示 甲乙 
二 人 到 达 的 时 刻 ， 则 每 次 试验 相当 于 在 边 长 为 60 的 正方 形 区 域 
Q={(X,7);0<X,Y<60} 


中 取 一 点 。 

设 两 人 到 达 时 刻 互 不 影响 ， 因 此 人, 刀 在 中 的 区 域内 取 点 的 可 能 性 只 与 区 域 的 面积 大 小 成 
正比 ， 而 与 其 形状 、 位 置 无 关 。 于 是 会 面 问题 可 化 成 向 区 域 Q 随机 投 点 的 问题 。 所 关心 的 事 
件 “ 二 人 能 会 面 ”可 表示 为 

A={(X,7):|X -7| <20} 


示意 图 如 图 17-3。 


y 
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图 17-3 
于 是 ， 


P(4)=(4 的 面积 )/(Q 的 面积) = ~0.556 


输入 以 下 Mathematica 语句 : 
meet[n_Integer] := Module[{x}, 
x[k_] := x[k] = Abs[Random[Integer, {0, 60}] - Random[Integer, {0, 60}]]; 
pile = Table[x[k], {k, 1, n}];times = Count[pile, x_ /; 0 <= x <= 20]; 
Print[times]; frequence = N[times/n]] 
n = 100; meet[n] 
n = 1000; meet[n] 
n = $000; meet[n] 
n = 10000; meet[n|] 
作 模 拟 试验 : 
(1) 模拟 向 有 界 区 域 Q2 投 点 n 次 的 随机 试验 ， 取 =100， 统 计 每 次 投 点 是 否 落 在 4 所 示 的 
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区 域 中 ， 若 是 则 计数 1 次 。 
(2) 改变 投 点 次 数 n=1000, 5000, 10000 ， 统 计 落 入 区 域 4 的 次 数 并 填 入 表 17-4: 
表 17-4 


ee ee 
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( 薄 丰 投 针 试验 ) 在 平面 上 画 有 等 距离 为 a(a > 0) 的 一 些 平行 线 ， 向 平面 上 随机 投 一 
长 为 LL< a) 的 针 。 求 针 与 平行 线 相交 的 概率 P(A)。 

解 : 若 以 MM 表 示 针 的 中 点 ， 以 x 表示 MM 距 最 近 平 行 线 的 距离 ，9 表示 针 与 平行 线 的 交角 。 则 
针 与 平行 线 相交 的 充 要 条 件 是 (6,x) 满足 


0<x <Lsin0 
0 和 0 入 IT 
于 是 猜 丰 投 针 试验 就 相当 于 向 平面 区 域 G- |e 二 外 | 投 点 的 几何 型 随机 试 
验 ， 如 图 17-4 所 示 。 
”4 的 面积 ”2L 
oy ?(4)= 6 现 面 村 “~ 南 
0.5 1 1.5 2 2.5 3 
图 17-4 
由 于 针 与 线 相交 的 概率 (理论 值 ) 为 P= 2 ,可 得 fr= 25 。 当 投 针 次 数 尺 下 = 时 ， 试 验 
值 ( 针 与 线 相交 的 频率 ) f(N)=P。 所 以 有 
证 2L 
f(N)a 


于 是 ， 可 用 萍 丰 投 针 试验 求 r 值 。 
输入 以 下 Mathematica 语句 ， 进 行 模拟 试验 : 
buffon[n_Integer, L_, a_] := Module[{}, times = 0; t = {}; 
tx = Table[Random[Real, {0, Pi}], {i, 1, n}]; 
ty = Table[Random[Real, {0, a/2}], {i, 1, nj]; 
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DofIffty[[k]] <= L/2*Sin{tx{[k]]), times++, times], {k, 1, n}]; 

frequence = N[times/n]; pi = 2*L/(frequence*a); 

t= Append[t, {n, times, frequence, 2*L/(Pi*a), pi}]; 

TableForm[t, TableHeadings -> {None, {"'n'', ''times'"', "frequence", "P", "pi"'}}]] 
n= 1000; L = 1.5; a = 4; buffon[n, L, a] 
n= 2000; L = 1.5; a = 4; buffon[n, L, a] 
n = 5000; LL = 1.5; a = 4; buffon[n, L, a] 
n= 10000; L = 1.5; a = 4; buffon[n, L, a] 

(1) 模拟 向 平面 区 域 G 投 点 NN 次 的 随机 试验 , 若 投 点 落 入 A 则 计数 1 次 , 统计 落 入 区 域 A 
的 次 数 就 是 针 与 线 相交 次 数 ， 计 算 针 与 线 相交 频率 ， 并 近似 计算 的 值 ; 

(2) 改变 投 点 次 数 N， 重 复 〈1)， 并 将 计算 结果 填 入 表 17-5。 

表 17-5 


攻 针 与 线 相交 次 数 针 与 线 相交 频率 针 与 线 相交 概率 


3.13808 


3.15126 
0.238732 


3.1198 


3.14729 


值得 注意 的 是 这 里 采用 的 方法 ， 建立 一 个 概率 模型 ， 它 与 某 些 我 们 感 兴趣 的 量 一 一 这 里 
是 常数 区 一 有 关 ， 然 后 设计 适当 的 随机 试验 ， 并 通过 这 个 试验 的 结果 来 确定 这 些 量 。 现 在 ， 随 
着 计算 机 的 发 展 ， 已 按照 上 述 思路 建立 起 一 类 新 的 方法 ， 随 机 模拟 方法 。 
练习 9 〈 薄 丰 投 针 问题 的 续 1〉 在 平面 上 画 有 等 距离 为 a(a > 0) 的 一 些 平行 线 ， 向 平面 上 任 
意 投 一 直径 为 L(L<a) 的 半圆 形 纸 片 。 求 事件 E={ 纸 片 与 平行 线 相交 } 的 概率 ， 并 模拟 之 。 

解 ， 设想 将 半圆 形 纸 片 拼 成 一 个 圆 形 ，: 并 记 玉 = {新 拼 的 半圆 形 与 平行 线 相交 }。 则 
EUF={ 直径 为 工 的 贺 形 与 平行 线 相 交 }， 
ee Made 


由 汝 丰 问 题 可 知 ，P(EN 互 = < ， 以 > 表示 圆心 到 最 近 平 行 线 的 距离 ， 则 中 = [0,51, 而 EUF 
={reQ:r<I), 故 PIEU 忆 = 二 。 由 加 法 公式 可 得 : 
P(E)+P(F)=P(E U F)+P(E NF)= 


而 由 对 称 性 P(E) = P(F) ， 故 所 求 概率 为 : 
P(E)= 


TL+2L 
ma 


0.5nxL+L 
Ta 


注意 到 上 式 的 分 子 恰 为 半圆 形 纸 片 周 长 。 回忆 薄 丰 问题 中 针 与 平行 线 相交 的 概率 中 , 分 子 
2L 也 可 看 作 针 的 周 长 。 同 时 ， 上 面 算出 的 圆 与 平行 线 相交 的 概率 为 P(E U = 于 ， 其 分 子 


也 是 圆周 长 ， 那 么 ， 抛 掷 更 一 般 的 图 形 时 是 否 也 有 相应 的 结论 了 昵 ? 
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练习 10 “〈 蒲 丰 投 针 问 题 的 续 2) 在 平面 上 画 有 等 距离 为 aa > 0) 的 一 些 平 行 线 ， 向 平面 上 任 
意 投 一 三 角形 。 设 三 角形 三 条 边 长 石 , 忆 , 万 均 小 于 a, 求 事件 B={ 三 角形 与 平行 线 相交 } 的 概率 ， 
并 模拟 之 。 

练习 11 《〈 贝 特 朗 悖 论 ) 在 一 半径 为 > 的 圆 C 内 任意 作 一 弦 ， 试 求 此 弦 的 长 度 工 大 于 圆 内 接 
等 边 三 角形 边 长 的 概率 。 

解 1: 作 半 径 为 沪 的 同心 圆 C, 。 若 弦 的 中 点 m 落 入 Ci 内， 则 工 > V3r ， 故 所 求 概率 为 两 圆 面 


A 


解 2: 设 纺 AB 的 一 端 4 固定 在 圆周 上 ， 另 一 端 是 任意 的 ， 考 虑 等 边 三 角形 AhADE ， 如 果 B 沙 

于 L4 对 应 的 弧 DE 上 ， 则 工 > V3r , 故 所 求 概率 为 : 

_ DE 的 弧 长 _1 
圆 的 周 长 3 

解 3: 设 弦 4B 垂直 于 直径 EF， 如 果 4B 的 中 点 M 在 GH 上 ， 那 么 L> V3r ， 因 此 所 求 概率 


为 


P 


投 点 次 数 均 取 为 n=5000 ， 做 以 下 模拟 试验 : 

(1) 模拟 解法 1， 可 用 向 半径 为 > 的 圆 C 内 投 点 来 模拟 ， 投 点 次 ， 若 投 点 落 入 C 内 ， 则 
计数 1 次 。 统 计 计 数 结果 ， 计 算 P 的 近似 值 ; 

(2) 模拟 解法 2: 可 用 向 长 为 2rr 的 线段 上 投 点 来 模拟 ， 将 线段 分 为 等 长 的 三 段 。 投 点 n 
次 ， 若 投 点 落 在 中 间 的 一 段 ， 则 计数 1 次 。 统 计 计 数 结果 ， 计 算 P 的 近似 值 ; 

(3) 模拟 解法 3， 可 用 向 长 为 2r 的 线段 EF 上 投 点 来 模拟 ， 若 投 点 落 在 GH 上 ， 则 计数 1 
次 ， 统 计 计 数 结果 ， 计 算 P 的 近似 值 。 

此 问题 一 题 多 解 ， 答 案 不 同 ， 原 因 何 在 ? 请 思考 。 

原因 在 于 取 弦 时 采用 了 不 同 的 等 可 能 性 假定 。 

第 一 种 解法 假定 弦 的 中 点 在 圆 内 均匀 分 布 ， 第 二 种 解法 假定 弦 的 端点 在 圆周 上 均匀 分 布 ， 
第 三 种 解法 则 假定 弦 的 中 点 在 直径 上 均匀 分 布 。 这 三 种 答案 是 针对 不 同 的 随机 试验 , 对 于 各 自 
试验 而 言 都 是 正确 的 ， 因 此 用 等 可 能 性 描述 模型 特点 具有 局 限 性 。 


17.4 独立 性 


自 ”诸葛亮 与 臭 皮 匠 

常言 道 ,“ 三 个 自 皮 匠 ， 顶 个 诸葛 亮 ”。 这 是 对 人 多 办 法 多 、 人 多 智慧 高 的 一 种 赞誉 ， 你 
可 曾 想到 ， 它 可 以 从 概率 的 计算 得 到 证 实 。 

下 面 我 们 来 模拟 ， 利 用 计算 机 随机 提问 ， 统 计 诸葛 亮 回答 出 问题 的 次 数 以 及 三 个 “ 臭 皮 
碧 ” 回 答 出 问题 的 次 数 ( 如 表 17-6 所 示 )。 设 诸葛 亮 、 每 个 臭 皮 匠 独立 解决 某 问题 的 概率 分 别 
为 ; 


P(A)=0.9, P(A) =0.45, P(A,)=0.55, P(A,) =0.60 
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表 17-6 


加 诸葛 亮 臭 皮 匠 甲 臭 皮 匠 乙 臭 皮 匠 丙 奥 皮 匠 
答 出 次 数 答 出 次 数 答 出 次 数 答 出 次 数 答 出 次 数 


事实 上 ， 若 用 4 (i=1,2,3 ) 表示 “第 ;个 臭 皮 匠 独立 解决 某 问题 ” 则 事件 8 一 一 “问题 
被 解决 ”可 表示 为 B= 4 + 4h,+ 4h， 则 
P(B)=P(A+Ah+h)=1-P(A)P(A2)P(A:)=1-0.55x0.45x0.4=0.901 


看 ! 三 个 并 不 聪明 的 “ 臭 皮 匠 ”居然 能 解决 90% 以 上 的 问题 ， 陪 明 的 诸葛 亮 也 不 过 如 此 。 
练习 12 改变 诸葛 亮 、 每 个 臭 皮 匠 独立 解决 某 问 题 的 概率 以 及 提问 次 数 ， 重 作 实验 8。 
附 ”Mathematica 程序 
1. 实验 4 的 程序 
<< Statistics` 
Clear[p, k];p[k_] = 工 - 365!/(365 - k)136S^k;Plot[p[k], {k, 1, 100}];k=23; 
Do[lx[j]=Random[Integer,{1,365}],{j,1,Kk}] 
b[0]=Table[xD1,0,1,k}];j=0;a[jl=0; 

While[a[jj==0 && k > j, m=j+1;z[j+li,m]=0; 

While[z[j+1,m]==0 && k > m, z[j+l,m+1]=If{b[01[[j+1]]== 
b[Ojf(m+1]],1,0];m++]; 
aljt+1]=Sum[z[j+1il,{ij+1,m}];j++]{jm} 

{b[OI[Lj],b[O[Cm]]} 
birthday[n_Integer,k_Integer]:=Module[{b,c,w,v}, 
Do[Do[x[i,j]=Randoml[Integer,{1,365}],{j,1,k}l; 
b[i]=Table[x[ij],{j,1k}];j=0;alj]}=0; | 
While[alj]==0 && k > jm=j+1;z[j+l,m]=0; 
While[z[j+lm]==0 && k>m,z[jt+l,m+1]=If[b[i][[j+1]]== 
b[i][[m+1],10];m++]; alj+1]=Sum[z[j+1,i],{ij+1,m}];j++]; 
c[i]=j;d[il=m; v=Sum[a[ll,{1,1,j}]; wi]=Ifv[]==1,1,0],{i,1,n}]; 
Proportion WithAtLeastTwoSame=N{Sum[wilil,{i,l,n}}/nj; 
Print[Sum[w[il,{i,1,n}]]};Print[Proportion WithAtLeastTwoSamel; 
RealProb=N[p[k]]; Table[{i,v[i]},{i,1,n}];b[8];Print[b[8]];{b[8][[c[8}1],b[8][[ar8]]};] 
n= 1000; r = 22;birthday[n, r]; 
n = 1000; r = 40;birthday[n,r]; 
n = 1000; r = 50;birthday[n, r]; 
n = 1000; r = 64;birthday[n, r]; 
2. 实验 8 的 程序 
<< Statistics™ 
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zhgl[n_Integer, p, pl, p2, p3] := Module[{k = 0, j}, t = {}; 
tl =.Table[Random[BernoulliDistribution[p]], {i, 1, n}]; 
timesl = Frequencies[t1][[2]][[1]]; 
t2 = Table[Random[BernoulliDistribution[p1]), {i, 1, n}]; 
times2 = Frequencies[t2][[2]}{[1]]; 
人 = Table[Random[BernoulliDistribution[p2]], {i, 1, n}]; 
times3 = Frequencies[t3][[2]][[1]]; 
t4 = Table[Random[BernoulliDistribution[p3]], {i, 1, nj]; 
times4 = Frequencies[t4][[2]]([1]]; 
Do[IfIt2[[i] + t3[[i]] + t4[[i]] == 0, k++, K), {i, 1, nj]; 
times =n - k; t= Append[t, {n, timesl, times2, times3, times4, times}]; 
TableForm[t, TableHeadings -> {None, {"n”, "z", "a', "b", "ec", "total"}}]] 
n=100;p=0.9; pl =0.45; p2 = 0.55; p3 = 0.6;zhgi[n, p, pl, p2, p3] 
n = 1000; p = 0.9; pl = 0.45; p2 = 0.55; p3 = 0.6;zhgl[n, p, pl, p2, p3] 
n= 5000; p = 0.9; pl = 0.45; p2 = 0.55; p3 = 0.6;zhgl[n, p, pl, p2, p3] 


128 


实验 十 八 随机 变量 及 其 分 布 


概率 论 中 研究 的 主要 问题 是 随机 事件 及 其 发 生 的 概率 。 作 为 描述 随机 试验 某 些 结果 的 随机 
事件 ， 有 些 与 数值 直接 发 生 关系 ， 有 些 却 只 是 定性 描述 ， 与 数值 间 没 有 直接 联系 。 为 了 统一 研 
究 的 方便 ， 在 随机 试验 的 结果 与 实数 间 建 立 对 应 关系 ， 这 种 单 值 实 值 函数 映射 ) 称 为 随机 变 
量 。 而 随机 变量 的 引入 , 也 使 概率 论 的 研究 由 个 别 随机 事件 扩大 为 随机 变量 所 表征 的 随机 现象 
的 研究 。 

本 实验 的 目的 是 通过 图 形 来 直观 理解 随机 变量 及 其 概率 分 布 特点 ， 利 用 图 形 进一步 理解 
各 种 概率 分 布 之 间 的 关系 。 


18.1 ”离散 型 随机 变量 及 其 概率 分 布 
设 离散 型 随机 变量 X 所 有 可 能 取 的 值 为 五 ，k=1,2,…，X 的 概率 分 布 (或 分 布 律 ) 


为 ; 
P(X =x}=p, k=1,2,.... 
p(k=1,2,… ) 满足 如 下 两 个 条 件 ，p, 宇 0,3 p, =1。 
k=] 
随机 变量 X 的 分 布 函 数 为 : 


F(X)=P(X = PIX=%}= pe, VxeR 
且 具 有 以 下 性 质 ， 单调 不 减 ， 右 连续 ; 0 志 F) 和 1，F(-e)=0,F(%)=1。 
常见 离散 型 随机 变量 分 布 有 二 项 分 布 B(n, p) 、 泊 松 分 布 r(4) 等。 
二 项 分 布 。 
(1) 取 p=0.2, 输入 以 下 Mathematica 语句 ， 绘 出 二 项 分 布 B(20,p) 的 概率 分 布 ( 如 图 18-1) 
与 分 布 函数 图 〈 如 图 18-2)， 观 察 二 项 分 布 的 概率 分 布 与 分 布 函数 图 形 ， 理 解 下 与 (x) 的 性 
质 ; 
<< Statistics 
<< Graphics`Graphics` 
n= 20; p= 0.2;dist = BinomialDistribution[n, p]; 
t= Table[(PDF[dist, x + 1], x}, {x, 0, 20}];gl = BarChart[t, PlotRange -> All]; 
g2 = Plot[Evaluate[CDF[dist, x]], {x, 0, 20}, 
PlotStyle -> {Thickness[0.008], RGBColor[0, 0, 1]}]; 
t= Table[{x, PDF[dist, x]}, {x, 0, 20}]; 
gel = ListPlot[t, PlotStyle -> PointSize[0.03], DisplayFunction -> Identity]; 
gg2 = ListPlot[t, PlotJoined -> True, DisplayFunction -> Idqentity]; 
pl = Show[ggl, gg2, gl1, DisplayFunction -> $DisplayFunction, PlotRange -> All]; 
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图 18-1 图 18-2 

从 图 18-1 中 可 以 看 到 , 当天 增加 时 , 概率 P{X=k} 先 是 随 之 增加 , 直至 到 k=4 达到 最 大 值 ， 
随后 单调 减少 。 从 图 18-2 中 可 以 发 现 F(x) 的 值 其 实 是 X<x 的 累积 概率 值 。 

(2) 固定 p=0.2， 分 别 取 n=10,20,50， 在 同一 坐标 系 内 绘 出 二 项 分 布 B(n, p) 的 概率 分 布 图 
形 如 图 18-3， 图 中 将 顶点 按 顺 序 连 成 折线 ， 称 为 概率 分 布 曲线 。 观 察 二 项 分 布 的 概率 分 布 曲 
线 随 参数 的 变化 。 

由 图 18-3 可 以 看 出 : 

(1) 当 n 变化 时 ， 二 项 分 布 的 概率 分 布 曲 线 都 呈现 先 上 升 后 下 降 的 趋势 。 事 实 上 ， 对 于 固 


定 的 n 及 p， 一 般 的 二 项 分 布 都 具有 这 一 性 质 ， 这 正 是 》 p, =1 在 约束 着 曲线 的 变化 趋势 。 
(2) 当 n 增 大 时 ， 图 形 的 峰值 减 小 ， 图 形 趋 于 对 称 。 


(3) 固定 n=10， 在 同一 坐标 系 下 分 别 绘 出 取 p=0.25,0.5,0.75 的 二 项 分 布 B(n,p) 的 概率 分 布 
曲线 如 图 18-4， 观 察 二 项 分 布 B(n,p) 的 概率 分 布 曲线 随 参 数 p 的 变化 ; 


图 18-4 


由 图 18-4 可 以 看 出 : 当 p=0.5 时 , 曲线 的 峰值 较 小 ; 另外 , 当 p=0.5 时 , 曲线 关于 k= ， 
左右 对 称 ; 而 pz#0.5 时， 曲线 就 发 生 偏 倚 ， 而 且 当 p=0.25<0.5 时 ， 图 形 向 左 偏 ， 当 
p=0.75>0.5 时 ， 图 形 向 右 偏 ， 但 二 者 是 对 称 的 。 

事实 上 ， 上 述 对称 偏 倚 关 系 可 以 从 二 项 分 布 的 概率 分 布 找 到 答案 。 考 虑 到 ; Ct =C"*， 
若 令 和 ~ Bup) ， 了 ~ BO,1- p) ， 则 

p{X=k}=Crp'(-p)™* =C -py™ pt’ 
= P{Y =n—k} k=0,1,.…,n 

这 一 特点 可 应 用 于 二 项 分 布 的 数值 查 表 。 一 般 表 中 仅 列 到 p=0.5， 若 要 求 p=0.94 的 结 - 

果 ， 则 可 从 p=1--0.9=0.1 的 栏 中 , 将 数值 倒 过 来 查找 ， 即 将 0,1,2,…,n ， 看 作 n,…,2,1,0, 就 


可 查 出 了 。 
练习 1 设 XX 服 从 三 点 分 布 ， 概 率 分 布 为 
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自行 选 定 p, p,, ps, 绘 出 三 点 分 布 的 概率 分 布 与 分 布 函数 图 ， 体 会 概率 分 布 与 分 布 函数 之 间 的 


关系 。 
练习 2 绘 出 B(n,0.2) 的 概率 分 布 曲线 ， 分 别 取 n=5,6,7,8,9,10， 人 


置 你 能 得 到 什么 结论 ? 请 解释 原因 。 


路 2 泊 检 分布。 分别 取 和 =12,3,6， 在 同一 坐标 系 下 绘 出 泊 松 分 布 r(4) 的 概率 分 布 曲线 ， 
观察 曲线 特点 。 输 入 以 下 Mathematica 语句 ， 得 到 泊 松 分 布 的 概率 分 布 曲线 如 图 15-8。 
<< Statistics™ 
<< Graphics Graphics` 
p=1; (*p=2;p=3,p=6;*)) 
dist = PoissonDistribution[p];t = Table[{x, PDFTdist, x + 1]}, {x, 0, 20}]; 
gg1 = ListPlot[t, PlotStyle -> PointSize[0.02], DisplayFunction -> Identity]; 
gg2 = ListPlot[t, PlotJoined -> True, DisplayFunction -> Identity]; 
pl = Show[ggl, 882]; 

由 图 18-5 可 以 看 出 ， 泊 松 分 布 的 概率 分 布 曲线 随 上 的 增加 呈现 先 上 升 后 下 降 的 趋势 ， 男 
外 ， 随 着 4 的 增 大 ， 概 率 分 布 曲 线 趋 于 对 称 。 

回忆 实验 1 中 二 项 分 布 的 概率 分 布 曲线 随 着 nn 的 增加 也 趋 于 对 称 , 那么 它们 之 间 有 无 联系 
了 呢 ? 
练习 3 在 同一 项 分 布 〈 自 行 输入 n, p) 与 泊 松 分 布 〈 参 数 为 和 =zpP) 的 概率 
分 布 曲线 ， 你 能 得 到 什么 结 
练习 4 在 练习 3 中 ， ss np 条 增 大 n， 减 小 p 的 取 值 ， 观 察 二 项 分 布 图 形 的 变化 ， 并 
与 泊 松 分 布 的 概率 分 布 曲 线 比较 ， 你 发 现 了 什么 ”? 
(二 项 分 布 的 泊 松 有 逼近 ?用 泊 松 分 布 逼近 给 出 二 项 分 布 BCk;40,0.2) (=12,…,40) 的 


近似 值 ， 并 与 它 的 精确 值 比较 。 
解 : 输入 以 下 Mathematica 语句 ， 作 出 散 点 图 如 图 18-6。 
<< Statistics` 
<< Graphics “Graphics` 
n=40;p= 0.2;dist = BinomialDistribution[n, p];tl = Table[{x, PDF[dist, x]}, {x, 0, n}]; 
gel = ListPlot[tl, PlotStyle -> PointSize[0.02], DisplayFunction -> Identity]; 
gg2 = ListPlot[t1, PlotJoined -> True, DisplayFunction -> Identity]; 
pl = Show[gegl, gg2]; 
dist = PoissonDistribution[n*p];t2 = Table[{x, PDF[dist, x]}, {x, 0, n}]; 
gel = ListPlot[t2, PlotStyle -> PointSize[0.02], DisplayFunction -> Identity]; 
gg2 = ListPlot[t2, PlotJoined -> True, DisplayFunction -> Identity, 
PlotStyle -> Dashing[{0.02}]]; 
p2 = Show[gg1, gg2]; 
p = Show[pl, p2, DisplayFunction -> $DisplayFunction, PlotRange -> AH]; 
练习 5 用 泊 松 分 布 逼近 给 出 二 项 分 布 B(K;100,0.0D (k=1,2,…,100) 与 B(k;1000,0.0D(k =1,2,…， 
1000) 的 近似 值 ， 并 作出 与 它们 的 精确 值 比较 的 散 点 图 。 
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图 18-5 图 18-6 
练习 6 试 分 析 n,p, 和 4 的 关系 ， 并 给 出 评价 以 泊 松 分 布 副 近 计 算 二 项 分 布 的 近似 效果 。 


18.2 ”连续 型 随机 变量 及 其 概率 密度 函数 


正 态 分 布 。 

(1) 固定 o=1, 取 =-2,4=0, 4=2， 输 入 以 下 Mathematica 语句 ， 分 别 在 同一 坐标 系 
下 绘 出 正 态 分 布 N(4,07) 的 概率 密度 曲线 以 及 分 布 函数 曲线 如 图 18-7， 观 察 参数 j 对 图 形 的 
影响 ; 
<< Statistics` 
<< Graphics Graphics™ 
dist = NormalDistribution[0, 1];distl = NormalDistribution[-2, 1]; 
dist2 = NormalDistribution[2, 1]; 
Pilot[{PDF[distl, xl], PDF[dist2, x], PDF[dist, x]}, {x, -6, 6}, 

PlotStyle -> {Thickness[0.008], RGBColor[0, 0, 1]}, PlotRange -> AU]; 
Plot[{CDFI[dist], x], CDF[dist2, x], CDF[dist, x]}, {x, -6, 6}, PlotStyle -> 
{Thickness[0.008], RGBColor[1, 0, 0]}]; 

从 图 18-7 可 以 看 出 : 

GD 概率 密度 曲线 是 关于 x= 4 对称 的 钟 形 曲线 ， 即 呈现 “两 头 小 ， 中 间 大 ， 左 右 对 称 ” 
的 特点 。 

(ii) 当 x=J 上 4 时， 了 (x) 取得 最 大 值 ，f(x) 向 左右 伸展 时 ， 越 来 越 贴近 x 轴 。 

(iii) 当 几 变化 时 ， 图 形 沿 着 水 平 轴 平 移 ， 而 不 改变 形状 ， 可 见 正 态 分 布 概率 密度 曲线 的 
位 置 完全 由 参数 4 决定， 所 以 人 称 为 位 置 参数 。 

(2) 固定 4L=0， 取 ca=0.5,11.5， 输 入 以 下 Mathematica 语句 ， 分 别 在 同一 坐标 系 下 绘 
出 正 态 分 布 N(4,0”) 的 概率 密度 曲线 以 及 分 布 函数 曲线 如 图 18-8， 观 察 参数 c 对 图 形 的 影 


响 。 
dist = NormalDistribution[0, 0.S^2];distl = NormaiDistribution[0, 1]; 
dist2 = NormalDistribution[0, 1.S^2]; 
Plot[{PDF![distl, x], PDF[dist2, x], PDF[dist, x]}, {x, -6, 6}, 

PlotStyle -> {Thickness[0.008], RGBColor[0, 0, 1]}, PlotRange -> AH]; 
Pilot[{CDF[dist1, x], CDF[dist2, x], CDF[dist, x]}, {x, -6, 6}, 

PlotStyle -> {Thickness[0.008], RGBColor[1, 0, 0]}, PlotRange -> Alll; 
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图 18-7 


由 图 18-8 可 以 看 出 : 固定 1 ， 改 变 c 时 ， 当 ca 越 小 0 附近 的 概率 密度 图 形 就 变 得 越 尖 ， 
分 布 函数 在 0 的 附近 增值 越 快 ，o 越 大 ， 概 率 密度 图 形 就 越 平坦 ， 分 布 函数 在 0 附近 增值 也 
越 慢 ， 故 o 决定 了 概率 密度 图 形 中 蜂 的 陡峭 程度 ， 另 外 ， 不 管 a 如 何 变化 ， 分 布 函数 在 0 点 
的 值 总 是 0.5， 这 是 因为 概率 密度 图 形 关 于 x= 0 对 称 。 
练习 7 自行 选 定 1,0o”， 绘 出 正 态 分 布 N(1,0”) 的 概率 密度 与 分 布 函 数 图 形 ， 并 与 标准 正 态 分 


布 的 对 应 图 形 比较 。 | 
练习 8 自行 选 定 1,0o”, 在 同一 坐标 系 下 绘 出 正 态 分 布 N(1,o”) 和 N(0,1) 的 概率 密度 曲线 , 试 
求 变换 ， 使 对 N(4,0”) 的 概率 密度 曲线 施行 平移 及 伸缩 变换 后 与 N(0,1) 的 概率 密度 曲线 重 


全 
品 o 


练习 9 自行 选 定 几 aG?* ， 产 生 n 个 服从 正 态 分 布 N(1,0”) 的 随机 数 ， 分 别 统计 落 入 [1 一 o， 
U4+0]，[4-20,4+20]，[4-30,W+30] 内 的 随机 数 个 数 ， 计 算 落 入 三 个 区 间 内 的 随机 数 频 
率 并 与 0.6826,0.9544,0.9974 比较 ， 你 能 得 到 什么 结论 ? 

练习 10 在 同一 坐标 系 下 绘 出 二 项 分 布 BQ100,0.2) 与 正 态 分 布 N(20,16) 的 概率 密度 曲线 ， 你 
人 | 

二 项 分 布 的 正太 分布 逼近 。 用 正太 分布 逼近 给 出 二 项 分 布 B(k;40,0.2) (k=1,2,…,40) 


的 近似 什 ， 并 与 它 的 精确 值 比较 。 

解 : 输入 以 下 Mathematica 语句 ， 作 出 散 点 图 如 图 18-9。 

<< Statistics™ 

<< Graphics Graphics` 

n= 40; p= 0.2;dist = BinomialDistribution[n, p]J;tl = Table[{x, PDF[dist x]}, {x, 0, n}]; 
ge] = ListPlot[tl, PlotStyle -> PointSize[0.02], DisplayFunction -> Identity]; 

gg2 = ListPlot[tl, PlotJoined -> True, DisplayFunction -> Identity]; 

pl = Show[ggl, gg2];t = Table[{PDFI[dist, x + 1], x}, {x, 0, n}]; 

gl1 = BarChart[t, PlotRange -> All, DisplayFunction -> Identity]; 

dist = PoissonDistribution[n*p]; t2 = Table[{x, PDF[dist, x]}, {x, 0, n}]; 

gel = ListPlot[t2, PlotStyle -> PointSize[0.02], DisplayFunction -> Identity]; 

gg2 = ListPlot[t2, PlotJoined -> True,PlotStyle -> {Dashing[{0.02}]; Thickness[0.015]}]; 
. p2= Show[ggl, gg2]; 

p= Show[pl, p2, DisplayFunction -> $DisplayFunction, PlotRange -> All]; 

p3 = Show[g], p2, DisplayFunction -> $DisplayFunction, PlotRange -> Alll; 
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图 18-9 
练习 11 用 正 态 分 布 逼近 分 别 给 出 二 项 分 布 B(k;100,0.01) , (k=1,2,…,100) 和 B(k;1000,0.01)， 
(k=1,2,…,1000) 的 近似 值 ， 并 与 它们 的 精确 值 比较 。 
练习 12 在 同一 坐标 系 下 绘 出 泊 松 分 布 r(20) 与 正 态 分 布 N(20,16) 的 概率 密度 曲线 , 你 又 发 现 
了 什么 ? 
18.3 ”随机 变量 函数 的 分 布 


设 和 7 相互 独立 ， 都 服从 (0,.1) 上 的 均匀 分 布 ， 求 Z=X+Y 的 概率 密度 。 
解 ， 用 卷 积 公式 可 求 得 Z=X+7Y 的 密度 函数 如 下 : 


2 5 O<z<l 
8(z)=42—z,. 1<z<2 
0 ， 其 它 
下 面 用 模拟 方法 来 求 ; 
(1) 产生 两 组 服从 (0,1) 上 均匀 分 布 的 相互 独立 的 随机 数 ,y ，i=1,2,…,n,n=1000 ， 计 算 
Zi = yi 


(2) 用 数据 z 作 频率 直方 图 ， 并 在 同一 坐标 系 内 画 出 用 卷 积 公式 求 得 的 密度 函数 图 形 作 比 

较 。 

输入 以 下 Mathematica 语句 ， 得 频率 直方 图 与 密度 函数 的 图 形 如 图 18-10。 
<< Statistics 
Clear[g], t, t1, t2]; t = {}; n = 1000; 
gllx_] := SO*Which[0 <= x <= 1, x, 1 <= x <= 2, 2 - x, True, 0]; 
picl = Plot[g1[x], {x, 0, 2}, PlotStyle -> {Thickness[0.01]}, RGBColor[0, 0, 11}]; 
til = RandomArray[UniformDistribution{0, 1], n]; 
t2 = RandomArray[UniformDistribution[0, 1], n]; 
Do[t = Append[t, t1[[i]] + t2[[i]}], {i, n}];p1 = Histogram[t]; 
Show[picl, pl, DisplayFunction -> $DisplayFunction]; 


[ 
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实验 十 九 数字 特征 


尽管 分 布 函 数 能 完整 地 描述 随机 变量 的 统计 特性 , 但 其 求解 往往 太 过 复杂 、 困 难 , 而 在 一 
些 实际 问题 中 ， 只 需 知道 随机 变量 的 某 些 数字 特征 ， 而 并 不 需求 出 它 的 分 布 函数 。 另外， 常见 
的 分 布 总 是 与 数字 特征 有 着 千 丝 万 缕 的 联系 ,对 分 布 型 式 已 知 的 随机 变量 ， 其 数字 特征 与 分 布 
函数 更 有 着 确定 性 的 关系 ,本 实验 的 目的 是 通过 观察 和 分 析 实 验 结果 对 数字 特征 的 定义 及 其 统 
计 意 义 加 深 理 解 。 


19.1 数学 期 望 


19.1.1 “数学 期 望 (均值 ) 的 确定 及 统计 意义 


实验 1 箱 中 装 有 大 小 、 形 状 相同 的 10 个 球 , 三 个 标 有 号 码 0, 三 个 标 有 号 码 1, 两 个 标 有 号 码 
2 两 个 标 有 号 码 3。 从 箱 中 任 取 一 球 , 记 下 号 码 后 再 放 回 箱 中 为 一 次 试验 。 记 处 为 所 得 号 码 , 
则 XX 是 随机 变量 ， 其 概率 分 布 为 ; 


(1) 进行 N=100 次 试验 ， 统 计 N 次 试验 中 取得 0 号 球 、1 号 球 、2 号 球 、3 号 球 的 次 数 
No ,Ni,N,,Ns， 算 出 N i 0 


M(N)=0.De+1 +2. Dr 
N N ”AN 


ee 
输入 以 下 Mathematica 语句 ， 将 结果 记录 在 表 19-1 中 。 
<< Statistics` 
Forlj = 1 j <= $, j++, 
n = 1000; Array[s, n]; Array[a, $]; Array[b, 4]; x = {0, 1, 2, 3}; 
p={0.3, 0.3, 0.2, 0.2}; dist = {}; Do[b[k] = 0, {k, 1 4}]; al[ll] = 0; 
Do[a[k] = alk - 1] + p[[k - 1]], {k, 2, 5}]; 
For[i=1,i<=n,it+k = 1;r = Random[]; While[r > a[k], k++]; 
s[i] = x{[k - 1]];b[k - 1] = b[k - 1] + 1]; aa = Table[s[i], {i, 1, n}]; 
了 Print[Table[b[k], {k, 1, 4}], " "*, NSum[( - 1)*b[l}/n, {1, 1, 4}]]] 
et 


号 码 平均 值 
so | 本 2 号 球 (N) 3 号 球 (Ns) (M(N)) 


表 19-1 中 M(N 是 以 号 码 出 现 频率 为 权 的 加 权 平均 。 比 较 N 固定 时 的 五 组 试验 结果 ， 可 
以 发 现 ， 不 同 组 试验 中 ， 取 到 各 号 码 球 的 次 数 不 同 ， 导 臻 号 码 的 平均 值 M(N) 不 同 ， 即 M(N) 
是 个 随机 变量 。 考 虑 到 频率 和 概率 的 关系 ,在 求 号 码 的 平均 值 时 ， 用 概率 代替 频率 ， 得 到 以 号 
码 出 现 概 率 为 权 的 加 权 平 均值 为 : 

E(X)=0:p,+1: p+2:p,+3:p;=1.3 

这 样 得 到 一 个 确定 的 数 1.3， 我 们 就 用 这 个 数 作 为 所 得 号 码 X 的 平均 值 ， 称 为 随机 变量 的 数学 
期 望 。 每 组 试验 结果 均 在 数学 期 望 1.3 附近 波动 ， 一 般 来 说 ， 随 着 N 的 增 大 ，M (CN) 越 来 越 
稳定 在 EX) 的 附近 。 因 此 ， 数 学 期 望 的 统计 意义 就 是 对 随机 变量 进行 长 期 观测 所 得 数据 的 
平均 值 ， 即 数学 期 望 只 对 长 期 或 大 量 观测 才 有 意义 。 
练习 1 分 别 取 N =50,200,2000,5000 ， 童 复 实验 1， 观 察 的 取 值 对 M(N)- ECX) 的 影响 。 
练习 2 掷 一 枚 均匀 肯 子 ， 随 机 变量 和 代表 面 上 的 点 数 ， 其 概率 分 布 为 ; 


| 
Ee 
用 1~5 的 随机 整数 来 模拟 试验 结果 。 做 多 次 掷 明 子 试验 ， 记 录 试 验 结果 ， 并 且 计 算 这 些 观 察 
值 的 算术 平均 值 ,观察 平均 值 与 数学 期 望 的 误差 ， 体 会 数学 期 望 的 统计 意义 。 
练习 3 ”自行 选 定 参数 ,分 别 绘 出 二 项 分 布 、 泊 松 分 布 、 均 匀 分 布 、 正 态 分 布 的 概率 分 布 曲线 或 
概率 密度 曲线 ,观察 数学 期 望 对 应 曲线 上 的 点 。 你 发 现 了 什么 ? 


练习 4 自行 选 定 9 , 绘 出 指数 分 布 Exp (6) 的 概率 密度 曲线 ,观察 数学 期 望 6 对 应 曲线 上 的 点 ， 
你 又 有 什么 发 现 ? 
练习 5 中 位 数 和 众 数 

he 但 有 时 它 不 存在 (如 柯 西 分 布 


f(x)= ee 二 或 有 一 些 明显 的 缺陷 ， 故 有 必要 引进 中 位 数 和 众 数 。 


中 位 数 : 指 满足 下 述 条 件 的 常数 c ， 
P{X<c}>0.5 且 P{X >c}>0.5 
对 于 连续 型 随机 变量 , 将 概率 密度 f (x) 曲线 下 方 的 图 形 划分 为 面积 相等 的 两 部 分 的 点 就 是 中 位 
数 。 
众 数 ， 指 对 任意 随机 变量 X， 使 其 概率 密度 f (x) 或 概率 分 布 P (x)〉 取得 最 大 值 的 点 b。 
众 数 不 唯 一， 如 泊 松 分 布 r(X) : 
试 分 别 绘 出 f(x) = x(0<x<vV2),fon=2xe (x >0), 以 及 正 态 分 布 概率 密度 曲线 ， 分 别 标 
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出 以 该 曲线 为 概率 密度 的 随机 变量 的 数学 期 望 .中 位 数 和 众 数 所 对 应 的 点 ,并 观察 三 者 的 关系 。 
19.1.2 ”数学 期 望 的 应 用 


合理 验 血 问题 。 

在 一 个 人 数 很 多 的 团体 中 普查 某 种 疾病 ， 为 此 要 抽验 N 个 人 的 血 , 现 有 两 种 方案 : (1) 逐 
个 化 验 ， 需 验 次 ; (2) 将 大 人 并 为 一 组 ， 把 从 大 人 抽 来 的 血 混合 在 一 起 进行 检验 。 如 果 混 合 
血液 星 阴 性 反应 ， 则 k 人 只 化 验 一 次 ， 若 呈 阳 性 ， 再 对 这 上 人 逐个 化 验 。 这 样 ， 该 组 共 需 化 验 
k+l1 次 。 假 设 每 个 人 化 验 呈 阳性 的 概率 为 p， 且 这 些 人 的 试验 反应 是 相互 独立 的 。 

问 : 哪 一 种 方案 好 ? 
解 : 取 p=0.1, 在 第 二 种 方案 中 分 别 将 三 2,3,4,5,6 人 并 在 一 起 进行 分 组 ,下 面 对 第 二 种 方案 进行 
模拟 : 


(1) 取 ME1000， 产 生 N 个 服从 B (1,p) 的 随机 数 ， 分 成 | (表示 大 于 或 等 于 N /的 最 


小 整数 ) 组 ， 若 某 组 随机 数 之 和 等 于 0， 计数 1 次 ， 否 则 计数 k+1 次 ， 累 计 计数 结果 就 是 在 第 
二 种 方案 中 将 上 人 并 在 一 起 进行 分 组 需 化 验 的 次 数 ， 

(2) 将 过 程 (1) 重 复 5 次 ， 并 计算 上 取 不 同 值 时 五 次 试验 的 平均 需 化 验 次 数 ， 输 入 以 下 
Mathematica 语句 ， 将 结果 填 入 表 19-2。 
<< Statistics` 
Clear[x, p, a, aa, b, k, s];n = 1000; q = 0.9; 
For[m = 2, m <= 6, m++, ff={}; 

Forll = 1, 1 <= $, l++, freq = 0; h = 0; 

tl = RandomArray[BinomialDistribution[1, 0.1], n]; 

t= CumulativeSums[tl1]; a[1] = t[[m + 1]}; 

Do[aDj] = t[[m*j]] - t[[m*G - 1)]], {j, 2, Floor[n/m]}]; 

If[m*Floor[n/m] == n, h = Floor[n/m], h = Floor[n/m] + 1; 

a[h] = t[[n]] - t[[m*Floor[n/m]]];]; 
Do[Ifita[j] == 0, freq = freq + 1, freq = freq + 1 + m], {j, 1, h}]; 
f= Append[ff, freq];];Print[ff," ",N[CumulativeSums[ff][[S]yS]]] 


表 19-2 


第 一 次 第 二 次 第 三 次 第 四 次 第 五 次 平均 需 化 验 次 
化 验 次 数 化 验 次 数 化 验 次 数 化 验 次 数 化 验 次 数 数 NL 
k=2 680 684 684 688 688 , 


从 表 19-2 中 可 以 看 出 : 若 分 组 数 恰当 (k=4)， 可 以 将 工作 量 减 到 最 少 而 不 贻误 病情 。 比 如 
k=4 时 五 组 模拟 试验 平均 需 化 验 的 次 数 为 590( 次 ), 这 比 第 一 种 方案 需 化 验 1000 次 的 工作 量 大 
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大 减少 。 | 
事实 上 , 车 设 各 人 的 血 呈 阴性 反应 的 概率 为 gq=1-p， 则 kk 个 人 的 混合 血 呈 阴性 反应 的 概率 
为 q+， 混合 血 呈 阳性 反应 的 概率 就 为 1-g" 。 又 设 以 x 个 人 为 一 组 时 ， 每 组 需 作 的 化 验 次 数 X 


是 一 个 随机 变量 ， 其 分 布 律 为 : 


| 


E(X)=1:g* +(1+k)(1~g")=1—kg: +k 
第 二 种 方案 平均 需 化 验 的 次 数 为 
Npor +i=Nd-o+L 
ed kgq +k)=N( 4 +7) 


每 组 平均 需 化 验 的 次 数 为 


由 此 可 知 ， 只 要 选择 大 使 
1 
L=1-g:+—<!1 

q er 


则 NN 个 人 平均 需 化 验 的 次 数 <N。 当 p 固定 时 ,我们 选择 上 使 得 小 于 1 且 取 到 最 小 值 ， 这 时 ， 
用 第 二 种 方案 就 能 得 到 最 好 的 分 组 方法 。 当 p=0.1 时 ， 取 k=4 可 使 L=1-g + 二 =0594 取 到 


最 小 值 ， 因 此 在 第 二 种 方案 中 将 4 人 并 在 一 起 进行 分 组 最 好 。 
练习 6 在 验 血 问题 中 ， 改 变 p， 试 求 最 好 的 分 组 方案 ， 并 模拟 验证 。 
练习 7 麦 炸 效果 问题 。 

假设 有 100 个 目标 需要 摧毁 , 模拟 飞机 友 炸 , 每 次 随机 地 击 中 一 个 目标 且 必 击 中 一 个 目标 
《可 以 重复 击 中 )。 计 算 全 部 摧毁 100 个 目标 平均 所 需 的 炮弹 总 数 ， 并 进行 模拟 〈 用 1~100 可 
重复 的 随机 整数 模拟 试验 结果 )。 
练习 8 某 车 间 生 产 的 圆 盘 直 径 在 区 间 U(0, 1) 服 从 均 色 分布, 试 求 该 车 间 生产 的 圆 盘 面积 的 平 
均值 ， 并 与 圆 盘 面积 的 数学 期 望 相 比较 。 


19.2 方 差 


在 实际 测量 中 ， 方 差 反 映 了 随机 变量 取 值 与 数学 期 望 的 离散 程度 ， 用 以 刻画 测量 精度 。 
设 X 和 了 是 两 个 离散 型 随机 变量 ， 其 概率 分 布 分 别 为 : 


0 | at 

X~ ， 了 了 ~ . 

0.1 0.8 0.1 0.1 0.2 0.4 0.2 0.1 

易 得 E(X)=E(Y)=0, D(X)=02,D0)=12 

输入 以 下 Mathematica 语句 ， 绘 出 X 和 了 的 概率 分 布 图 形 ， 直 观 演示 D (Y ) >D (X )， 如 图 
19-1。 

<< Graphics Graphics` 

BarChart[{{0.1, -1}, {0.8, 0}, {0.1, 1}}, BarSpacing -> 0.6]; 

BarChart[{{0.1, -2}, {0.2, -1}, {0.4, 0}, {0.2, 1}, {0.1, 2}}, BarSpacing -> 0.6]; 
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图 19-1 
于 设 X,Y,Z 都 是 连续 型 随机 变量 ， 均 服从 正 态 分 布 : X~N(,07) » Y~N (4,.02) 9 
Z~N (03 ),a >o,>0;。 取 N=2000， 输 入 以 下 Mathematica 语句 ， 分 别 产生 服从 N(4,0?)， 


Na2) NG,a3) 的 三 组 W 个 随机 数 ， 并 画 其 直方 图 如 图 19-2。 
<< Statistics` 

n = 2000;datal = RandomArray[NormalDistribution[0, 1.S^2], n]; 
Histogram[datal, PlotRange -> All]; 

data2 = RandomArray[NormalDistributionf0, 1], n]; 
Histogram[data2 PlotRange -> Alll; 

dta3 = RandomArray[NormalDistribution[0, 0.S^2], n]; 
Histograml[data3,PlotRange -> All]; 


100 
80 
60 
40 


20 


图 19-2 

由 图 19-3， 比 较 三 张 直方 图 可 以 发 现 ，o 越 小 ， 随 机 变量 落 在 人 附近 的 概率 越 大 ， 随 机 
变量 取 值 越 密集 在 4 的 附近 。 
练习 9 设 勾 了 均 服从 泊 松 分 布 ， 针 ~x(2)，Y~r(20)， 分 别 产生 服从 7(2),7z(20) 的 两 组 N 个 
随机 数 ， 画 其 直方 图 ， 观 察 参 数 对 随机 数 取 值 的 影响 ， 并 解释 原因 。 
练习 10 ” 设 忆 了 均 服 从 指数 分 布 ， 和 -~Exp(8,)，Y~Exp(6,) ，6, > 6, ， 分 别 产生 服从 两 个 分 
布 的 两 组 NN 个 随机 数 ， 画 其 直方 图 ; 观察 参数 对 随机 数 取 值 的 影响 ， 并 解释 原因 。 

19.3 协 方差 与 相关 系数 

相关 系数 是 刻画 随机 变量 XY 的 线性 关系 是 否 密切 的 尺度 ， 
设 B 服 从 [0,2z] 上 的 均匀 分 布 ， 钱 =cos(B8)，Y=cos(A+B),(4 为 常数 ) 
X 和 了 的 相关 系数 为 p =cos(4) 。 产 生 服 从 UI[0,27] 的 NN 个 随机 数 ， 取 N=100， 对 应 
A=0, A=3, A=7 A=K 分 别 绘 出 X 和 了 的 散 点 图 ， 观察 p 对 散 点 图 的 影响 。 输 入 以 下 


Mathematica 语句 : 
<< Statistics™ 
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Clear[x, y]; n = $0; 
covar[a_] := Module[{}, 
tl = RandomArray[UniformDistribution[0, 2 Pi], n]; 
x[t_] = Cos[t]; y[t_] = Cos[a + {]; 
g1 = ParametricPlot[{x[t], y[t]}, {t, 0, 2 Pi}, 
PlotStyle -> RGBColor[1, 0, 0], DisplayFunction -> Identity]; 
txy = Table[{Cos[t1[[i]]], Cos[a + t1[[i]]]}, {i, n}]; 
8g2 = ListPlot[txy, PlotStyle -> PointSize[0.02], DisplayFunction -> Identity]; 
Show[gl, g2, DisplayFunction -> $DisplayFunction];] 
a= 0; covar[a]; 
a = Pi/3; covar[a]; 
a = Pi/2; covar[al; 
a= Pi; covar[a]; 


画 出 散 点 图 如 图 19-3; 


(c) A=7/2 4 (d) A=z 


图 19-3 
由 图 19-3 可 以 看 出 : 当 |p| 较 大 时 ，X 和 了 的 线性 联系 较 紧密 ,特别 当 |p|=1 时 ,XX 和 Y 
之 间 存在 线性 关系 ， 当 |p| 较 小 时 ，X 和 的 线性 联系 较 差 ， 特 别 当 p =0 时 ，X 和 了 不 相关 。 
练习 11 自行 选取 A 与 N， 重 作 实 验 5。 
练习 12 设 X 和 了 是 两 个 正 态 随机 变量 ， 它 们 的 相关 系数 为 r， 产生 m 个 服从 二 维 正 态 分布 
的 随机 数 ， 自 行 选取 参数 ，r 以 及 m， 画 出 散 点 图 ， 体 会 相关 系数 的 含义 。 
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实验 二 十 大 数 定律 和 中 心 极限 定理 


在 长 期 实践 中 人 们 认识 到 频率 具有 稳定 性 ， 即 当 试验 次 数 增 大 时 ， 频 率 稳 定 在 一 个 数 的 
附近 , 这 一 事实 显示 了 可 以 用 一 个 数 来 表征 事件 发 生 的 可 能 性 大 小 。 这 使 人 们 认识 到 概率 是 客 
观 存 在 的 , 进而 由 频率 的 三 条 性 质 的 启发 和 抽象 给 出 了 概率 的 定义 ,因而 频率 的 稳定 性 是 概率 
定义 的 客观 基础 ， 大 数 定律 则 以 严密 的 数学 形式 论证 了 此 结论 及 其 一 般 形 式 。 另 外 , 在 测量 误 
差 中 误差 分 布 常用 正 态 分 布 来 近似 ， 对 此 ， 中 心 极限 定理 给 出 合理 的 解释 。 

本 实验 的 主要 目的 是 通过 观察 和 分 析 实验 结果 加 深 对 大 数 定律 及 中 心 极限 定理 的 理 
解 。 


20.1 大 数 定 人 律 


伯 努 利 定理 : 设 ns 是 n 次 独立 重复 试验 中 事件 A 发 生 的 次 数 ，p 是 事件 A 在 每 次 试验 
中 发 生 的 概率 ， 则 对 于 任意 正 数 e>0， 有 
<e|-: 


>e| =0 


怪 -p 


sm?| 
n 


nm 


na 
i 
n 


me| 
辛 钦定 理 : 设 随机 变量 XX ,X,,…,X,,… 相互 独立 ， 服 从 同一 分 布 ， 且 具有 数学 期 望 
E(X,)=H,(k =1,2,…) ， 则 对 于 任意 正 数 e>0， 有 
<e|- 
伯 努 利 定理 的 直观 演示 。 


lim ix —H 
no% n al 
(1) 产生 个 服从 两 点 分 布 B (1, p) 的 随机 数 ， 其 中 p=0.5,n=50，, 统计 1 出 现 的 个 数 代表 


" 次 试验 中 事件 A 发 生 的 频数 内 ， 计 算 |- 
02) 将 (1) 重 复 m=100 组 ,对 给 定 的 e = 0.05 ,统计 由 组 中 只 > e 成 立 的 次 数 及 加 -| 
n n 
达 e 出 现 的 频率 。 
输入 以 下 Mathematica 语句 : 
<< Statistics` 


p=0.5; eps = 0.05; m = 100; out = {}; 
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For[n = 10, n <= 2000, n *= 3, t = {}; dist = {}; h = 0; 
For[i = 1,i <= m, i++, dist = RandomArray[BinomialDistribution{1, p], nj; 
na = Frequencies[dist]; h = Abs[fna[[2]][[]n - p]; 
t= Append[t hl]; times = Count[t, x_ /; X >= epsj; 
out = Append[out, {n, times, N[times/m]}];] 
TableForm[out, TableHeadings -> {None, {"'n'', ''times'’, "frequence"'}}] 
试验 结果 如 ` 表 20-1。 
I 


从 表 20-1 可 以 看 出 ， 随 着 n 的 增 大 ， 伯 努 利 试验 中 事件 A 的 频率 与 概率 的 偏差 不 小 
于 的 概率 越 来 越 接 近 于 0 ， 即 是 说 ， 当 nn 很 大 时 ,事件 发 生 的 频率 与 概率 有 较 大 偏差 的 可 能 
性 很 小 由 实际 推断 原理 ， 在 实际 应 用 中 ， 当 试验 次 数 很 大 时 ， 便 可 以 用 事件 发 生 的 频率 来 代 


练习 1 给 定 N， 取 p=0.5g=03， 观 察 半 从 N 到 N+50 变化 时 ， 太 = 必 在 的 2 邻 域内 变 


化 的 过 程 。 
3 辛 钦 大 数 定理 的 直观 演示 。 
(1) 产生 服从 N(0,D) 的 个 随机 数 ， 取 n=100， 计 算 n 个 随机 数 的 平均 值 ; 


(2) 将 (1) 重复 m=100 组 ， 对 给 定 的 e =0.05 ， 统计 m 组 中 |X|<e 成 立 的 次 数 及 | < e 出 


现 的 频率 。 

输入 以 下 Mathematica 语句 : 
<< Statistics` 
eps = 0.05; m = 100; out = {}; 
For[n = 100, n <= 2000, n += 100, 

t={); dist={};h =0; 

For[i = 1,i <= m i++， dist = RandomArray[NormalDistribution[0, 1], nj; 
na = Miean[dist];t = Append[t, na]]; times = Count[t x_ /; x < eps]; 
out = Append[out {n, times, N[times/m]}];] 

TableForm[out, TableHeadings -> {None, {"n'', "times'', "frequence"'}}] 


试验 结果 如 表 20-2。 
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表 20-2 


一 Te 


从 表 20-2 可 以 看 出 服从 同一 分 布 的 nn 个 随机 变量 的 平均 值 ， 随 着 nn 的 增 大 ， 与 原 分 布 
的 数学 期 望 有 较 大 偏差 的 可 能 性 很 小 , 于 是 在 实际 应 用 中 , 可 用 服从 同一 分 布 的 大 量 随机 数 的 
平均 值 来 代替 分 布 的 数学 期 望 。 
练习 2 改变 n， 重 作 实 验 2。 


练习 3 (1) 产 生 服 从 参数 为 9 的 指数 分 布 的 nn 个 随机 数 ， 计 算 n 个 随机 数 的 平均 值 环 ， 
”将 (重复 m=100 组 ， 对 给 定 的 e=0.05 ， 统 计 m 组 中 |X-9|<e 成 立 的 次 数 及 
|¥-e|<e 出 现 的 频率 。 
(3) 改变 m，6 及 E ， 重 复 过 程 (1)、(2)。 
你 能 得 到 什么 结论 ? 从 中 体会 辛 钦 大 数 定理 的 含义 。 
20.2 中心 极限 定理 
设 X ,X, 为 独立 同 分 布 的 随机 变量 序列 ， 且 对 i=1,2,… 有 : 
E(X,)=1 ， D(X,)=0? 
则 


它 表 明 ， 当 n 充分 大 时 , n 个 具有 期 望 和 方差 的 独立 同 分 布 的 随机 变量 之 和 近似 服从 正 态 
分 布 。 


中 心 极限 定理 的 直观 演示 一 一 原始 分 布 是 离散 分 布 。 
(1) 产生 服从 二 项 分 布 B(10, p) 的 n 个 随机 数 ， 取 p=0.2，n=50， 计 算 n 个 随机 数 之 和 


以 及 一 20np ， 
4 yn:10p(— p) 
将 (1 =1000 组 ， 组 2102_ 图 。 
(2) 将 (1) 重复 m 组 ,用 m 组 pr 的 数据 作 频 率直 方 图 
输入 以 下 Mathematica 语句 ， 画 出 频率 直方 图 如 图 20-1。 
<< Statistics™ 
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<< Graphics Graphics` 
m = 1000; n = 50; p = 0.2;t = {}; dist = {}; 
For[i = 1,i <= m, i++， 

dist = RandomArray[BinomialDistribution[10, pl, n]; 

ysum = CumulativeSums[dist]; 

nasum = (ysum[[m]] - 10*n*p)/Sqrt[n*10*p*(1 - p)]; t = Append[t, nasumj];] 
Histogram[t, FrequencyData -> False]; | 

观察 图 20-1 可 以 看 出 : 当 原 始 分 布 是 二 项 分 布 , n 比较 大 时 , n 个 独立 同 分 布 的 随机 变量 

之 和 近似 于 正 态 分 布 。 
练习 4 改变 n，p， 重 作 实 验 3， 并 与 正 态 分 布 N (0,1) 的 概率 密度 图 形 进 行 比较 。 
练 改变 原始 分 布 为 泊 淞 分 布 ， 重 作 实 验 3。 
宪 验 和 中 心 极限 定理 的 直观 演示 一 一 原始 分 布 是 连续 分 布 。 


》 
(1) 产生 服从 均匀 分 布 0(0,1) 的 n 个 随机 数 , 取 n=50, 计 算 n 个 随机 数 之 和 y 以 及 一 2 


_n 
(2) 将 (1) 重复 m=1000 组 ， 用 m 组 二 高 的 数据 作 频 率直 方 图 。 
输入 以 下 Mathematica 语句 ， 可 画 出 频率 直方 图 如 图 20-2。 
<< Statistics` 
<< Graphics Graphics- 


m = 1000; n = 500; a = 0; b = 1;t = {}; dist = {}; 

Forli=1,i<=m,it+, dist = RandomArray[UniformDistribution[a, bl], np]; 
ysum = CumulativeSums[distl; nasum = (ysum[[n]] - m2)/Sqrt[n/12]; 
t= Append[t, nasum];] 

Histogramlt, FrequencyData -> False]; 


80| 
60 
40 
20 


-3. -2. -1, 0. 1. 2. 3. 
图 20-1 图 20-2 


由 图 20-2 可 以 看 出 : 当 原 始 分 布 是 均匀 分 布 , 半 比 较 大 时 , n 个 独立 同 分 布 的 随机 变量 之 
和 近似 于 正 态 分 布 。 


练习 6 改变 n 以 及 均匀 分 布 参 数 a,b， 重 作 实验 4， 并 与 正 态 分 布 Non. 2+” mn. 他 -9) ) 的 概 


12 
率 密度 图 形 进行 比较 。 
练习 7 改变 原始 分 布 为 指数 分 布 ， 重 作 实 验 4。 你 能 得 到 什么 结论 ? 并 从 中 体会 中 心 极限 定 
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理 的 含义 。 
中 心 极限 定理 的 应 用 一 一 戏院 设 座 问 题 

甲 、 乙 两 个 戏院 在 竞争 1000 名 观众 , 假定 每 个 观众 完全 任意 地 选择 两 戏院 中 的 一 个 戏院 ， 
且 观 众 选 哪个 戏院 彼此 间 是 相互 独立 的 。 问 每 个 戏院 至 少 应 设 多 少 个 座位 才能 保证 因 缺 少 座位 
而 使 观众 离 去 的 概率 小 于 0.1? 
解 : 由 于 两 戏院 情况 相同 ， 只 需 考虑 甲 戏院 即 可 。 

设 1000 名 观众 中 选择 甲 戏院 的 人 数 为 XY， 依 题 意 ，X ~ B(1000, 0.5) 。 再 设 甲 戏院 需 设 m 
个 座位 ， 问 题 为 求 m, 使 p{X>m}<0.1。 


由 于 久 很 大 ，np =500，np(1p)=250， 由 素 莫 佛 一 拉 普 拉 斯 定理 ， 有 


5 - X-np 
” Vnpd- 门 
近似 服从 标准 正 态 分 布 N(0,1)， 因 此 
-500 
X>ml=1-p{xX<ml=1- p45, 太守 
ptx> 四 =1-p{x< 罗 =1-p[s, < 加 | 
-500 
~1-®(2 
( 5 ) 
欲 使 1- BP( 站 0)<01, 即 @( 了 -0) >09， 态 得 : 
欲 使 人 Ce 查 正 态 分 布 表 可 得 
m—500 >09 
V250 
解 得 m 之 521 
乙 戏院 的 情况 完全 类 似 。 即 每 个 戏院 至 少 应 设 521 个 座位 才能 保证 因 缺 少 座 位 而 使 观众 离 
去 的 概率 小 于 0.1。 
输入 以 下 Mathematica 语句 进行 模拟 ， 其 中 用 0 表示 选择 甲 戏 院 的 人 ，1 表示 选择 乙 戏 院 
的 人 。 
<< Statistics 


<< Graphics`Graphics` 
n= 1000; t= {}; dist = {};t1 = {100, 365, 500, 730, 1000}; 
For[j = 1, j <= Length[t1], j++, m = tl[D]]; 
Forfi = 1,i <= m, i++, dist = RandomArray[BinomialDistribution[1, 0.5], nl]; 
distl = Frequencies[dist]; 
Hf[dist1{[1]][[1]] > $21, times = times + 1, tmes];]; 
t= Append[t, {t1[[j]], times, N[times/m]}]; times = 0;] 
‘TableForm[t, TableHeadings -> {None, {"'n'', "times'', "frequence"'}}] 


(1) 产生 1000 个 服从 两 点 分 布 B(1,0.5) 的 0.1 随机 数 ， 统 计 出 现 0 的 个 数 mm ， 若 出 > 521， 
则 计数 一 次 ; 
(2) 将 (1) 重复 入 组 ， 计数 结果 填 入 表 20-3 并 与 离 去 概率 比较 。 
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N 
因 无 座 而 高 去 天 数 
离 去 频率 
离 去 概率 


练习 8 高 尔 顿 钉 板 试验 的 理论 解释 
回忆 实验 十 七 中 的 高 尔 顿 钉 板 试验 ， 若 设 刀 是 钉子 的 横 排 排 数 ， 引 入 随机 变量 
| 1 ,第 ;次 碰 钉 后 小 球 向 左 
:一 -1 ,第 次 碰 钉 后 小 球 向 右 盖 2， 杰 
由 于 小 球 下 落 过 程 中 碰 到 钉子 时 ， 从 左边 落下 与 从 右边 落下 的 机 会 相等 ， 因 此 


-1, 1 
人 
2 2 
可 求 得 ”E(X,)=0，D(X,)=1,n=1,2,…。 令 了 表示 nn 次 碰 钉 后 小 球 的 位 置 ， 即 


A 4 

由 中 心 极限 定理 , 当 n 充分 大 时 ，Y, /Vn 的 分 布 近似 于 标准 正 态 分 布 N (0,1)。 也 就 是 说 ,的 
分 布 近似 于 正 态 分 布 N(0,n) 。 若 钉 板 有 n=16 层 ， 可 以 求 出 标准 差 o = V16 = 4 ， 根 据 正 态 分 
布 的 查 表 计算 知道 ， 落 在 20 以 内 即 中 线 左右 8 颗 钉 子 以 内 的 概率 近似 为 95.6%， 落 在 这 以 外 
的 概率 只 有 4% 左右 。 

下 面 进行 模拟 : 

(1) 作 N=300 次 小 球 碰 钉 试验 ,将 小 球 落下 位 置 记录 在 同一 个 图 里 , 并 画 其 落下 位 置 的 频 
率直 方 图 ， 与 正 态 分 布 N (0,42 的 概率 密度 图 形 相 比较 ; 

(2) 增加 试验 次 数 W， 重 复 上 面试 验 过 程 。 
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实验 二 十 一 ”数理 统计 的 基本 概念 


数理 统计 是 研究 大 量 随 机 现象 的 统计 规律 性 的 一 门 数学 科学 , 它 以 概率 论 为 基础 研究 如 何 
用 有 效 的 方式 收集 、 整 理 和 分 析 受 到 随机 性 影响 的 数据 ， 并 作出 种 种 合理 的 估计 和 判断 。 
本 实验 的 主要 目的 是 通过 观察 加 深 对 基本 概念 的 理解 及 从 图 形 角度 了 解 常 用 统计 分 布 。 


21.1 F 分布 
了 分布 ; 设 U~X (nm),，V~X (nm,)， 且 U,V 独立 ， 则 称 随机 变量 
FU 
V/n, 
服从 自由 度 为 (n,n) 的 分布， 记 为 F~F(n,n,)。 
(1) 固定 n=5 ,分 别 取 参 数 n =2,10,100 ， 观 察 F 分 布 的 概率 密度 图 形 随 参 数 的 变化 


情况 。 

(2) 国定 n =5， 分 别 取 参数 n, = 2.10,100 ， 观 察 F 分 布 的 概率 密度 图 形 随 参数 ,的 变化 
情况 。 
解 : 输入 以 下 Mathematica 语句 ， 得 到 下 分布 的 概率 密度 图 形 随 参 数 n 的 变化 如 图 21-1。 


Plot[{PDF[FRatioDistribution[2, $], x], PDFIFRatioDistribution[10, $], x], 
PDF[FRatioDistribution[100, S], x]}, {x, 0, 4}, 
PlotStyle -> {{Thickness[0.008], RGBColor[l 0, 0]}, {Thickness[0.01], 
RGBColor[0, 0, 1]}, {Thickness{0.01], RGBColor[0, 1, 0]}}]; 
Plot[{PDF[FRatioDistribution[S, 2], x], PDF[FRatioDistribution[$, 10], x], 
PDF[FRatioDistribution[5S, 100], x]}, {x, 0, 4}, 
PlotStyle -> {{Thicknessi0.008], RGBColor!]1, 0, 01}, {Thickness[0.01], 
RGBColor[0, 0, 1]}, {Thickness[0.01], RGBColor[0, 1, 0]}}]; 


二 | 
0.8 0.6| ( 
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图 21-1 ( 左 图 为 固定 n=5， 右 图 为 固定 m=5 的 变化 情况 。) 
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练习 1 分 别 改变 n,n 的 固定 值 ， 重 做 实验 1。 
练习 2 ”研究 严 分 布 的 概率 密度 图 形 随 参 数 n,n 的 变化 情况 ， 试 给 出 你 的 结论 。 


21.2 ”统计 量 及 抽样 分 布 


设 X~N(j,07),X,,…,X, 是 取 自 总 体 X 的 一 个 样本 , 则 样本 均值 总 = 工 祥 X， 的 折 


i=1 


样 分 布 为 Nu, 。 
(1) 取 n=10，J=0 及 0? =1， 在 同一 坐标 系 下 画 出 正 态 总 体 N (J,0?) 和 XX 的 抽样 分 布 
Nu 三 -) 的 概率 密度 图 形 ， 
(2) 固定 4=0 及 o” =10， 分 别 取 n=10,20,30,50,100 ， 在 同一 坐标 系 下 画 出 来 自 正 态 总 
体 N(/,a? ) 的 不 同样 本 容量 的 X 的 分 布 。 
解 : (1) 输入 以 下 Mathematica 语句 ， 得 到 图 形 如 图 21-2。 
<< Statistics` 
<< Graphics Graphics` 
Plot[{PDF[NormalDistribution[0, 1], x], PDF[NormalDistribution[0, Sqrt[1/10]], x]}, 
{x, -4, 4}, PlotStyle -> {{Thickness[0.008], RGBColor[1, 0, 0]}, {Thickness[0.01], 
RGBColor[0, 0, 1]}}, PlotRange -> Alll; 
(2) 输入 以 下 Mathematica 语句 ， 得 到 图 形 如 图 21-3。 
Plot[{PDF[NormailDistribution[0, 1], x], PDF[NormalDistribution{0, Sgrt[1/2]], x], 
PDF[NormalDistribution[0, Sgrt[L/2]], xl], PDF[NormalDistribution[0, Sqrt[1/5]], x], 
PDF{NormalDistribution[0,，Sqrt[1/10]], x]},: {x, -4, 4}, PlotStyle -> {{Thickness[0.008], 
RGBColor[1, 0, 0]}, {Thickness[0.01], RGBColor[0, 0, 11}}, PlotRange -> Ai]; 


图 21-2 图 21-3 


由 图 21-3 可 以 看 出 : 
(1) 虽然 每 个 个 体 X,(i=1,2,…,n) 与 总 体 的 分 布 相同 ， 但 样本 均值 更 密集 在 总 体 均 值 的 附 
近 ; 
(2) 随 着 样本 容量 的 增 大 ， 样 本 均值 的 取 值 越 来 越 密集 在 44 的 附近 。 
因此 样本 均值 这 一 统计 量 比 任何 一 个 直接 从 总 体 中 抽出 来 的 个 体能 更 集中 地 反映 总 体 均 
值 的 信息 。 
练习 3 设 X~N(J,0”),Xi,X,,…,X, 是 取 自 总 体 X 的 一 个 样本 ， 样 本 方差 为 : 
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?= 一 > (x,- x) 


则 

(n 本 2 
(1) 取 n=20，o =1， 自 行 选 定 k， 画 出 统计 量 Y=(n 一 1)S? 的 抽样 分 布 概率 密度 图 ， 
(2) 对 选 定 的 4 ， 固 定 x=20， 分 别 取 o=0.41,4 时 ， 在 同一 坐标 系 下 画 出 统计 量 


王权 -5 的 抽样 分 布 概率 密度 图 ， 观 察 统计 量 了 的 概率 密度 图 形 随 参数 a 的 变化 情况 ; 


(n— 2 


(3) 固定 由 及 a ， 分 别 取 n=10,20,40， 在 同一 坐标 系 下 画 出 统计 量 7= 汪 一 一 -的 抽样 分 


布 概率 密度 图 ， 观 察 统计 量 了 的 概率 密度 图 形 随 样 本 容量 大 小 的 变化 情况 。 


上 取 由 =5.0,a? =1.0,n =100, 设 %,X,,…, 罗 ,是 取 自 正 态 总 体 N(J,0? ) 的 一 个 样本 值 (可 
用 产生 n 个 服从 N(J,07 ) 分 布 的 随机 数 来 模拟 ), 计 算 对 应 的 样本 均值 与 样本 方差 填 入 表 21-1: 


(2) 将 过 程 (1〉 重 复 五 组 。 
表 21-1 


| 
4.92894 4.863 4.91194 4.9434 4.97831 
| | 0 1.13319 1.34155 0.939327 1.11125 0.829819 


你 能 得 到 什么 结论 ? 
解 ， 输入 以 下 Mathematica 语句 进行 模拟 ， 结 果 如 表 21-1。 
<< Statistics™ 
<< Graphics`Graphics` 
n=100;t={}; 
Forli = 1, i <= 5, i++, 

dist = RandomArray[NormalDistributionfS, 1], nj; mean = Meanfdist]; 

d = Variancefdistlj; t= Appendft {i mean, d}];]; 
TableForm[t, TableHeadings -> {None, {"'group'', "mean", '"'variance''}}] 

由 表 21-1 可 以 看 出 : 在 样本 容量 固定 的 情况 下 ， 因 为 每 次 抽样 不 同 ， 故 每 次 样本 均值 、 样 

本 方差 都 有 不 同 ， 是 随机 变量 , 但 样本 均值 与 总 体 均 值 ， 样 本 方差 与 总 体 方 差 相 差 很 小 ， 可 以 
看 作 近似 相等 。 
练习 4 改变 n， 重 做 实验 3， 你 能 得 到 关于 样本 容量 与 近似 程度 的 什么 结论 ? 
经 验 分 布 函 数 
设 %,%,…, 艺 是 取 自 总 体 P00) 的 一 个 样本 观察 值 ， 若 把 这 些 观察 值 由 小 到 大 排列 成 << 


Xn) o 则 称 函 数 


X02) 
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0,x< Xu) 


F(x)= Da (k=1,2,.…,n—1) 


1],X>> Xr) 


为 经 验 分 布 函数 。 
(1) 取 J=5.0,0?=1.0,n=100, 产生 n 个 服从 N (J,0?) 分 布 的 随机 数 作为 取 自 正 态 总 体 
N (J,.07) 的 一 个 样本 值 %, 鸭 ,…,%， 画 出 它 的 经 验 分 布 函数 ， 并 与 总 体 分 布 函 数 进行 比较 ; 
(2) 将 过 程 (1)》 重复 3 组 。 
输入 以 下 Mathematica 语句 ， 得 到 经 验 分 布 函数 与 总 体 分 布 函数 的 图 形 如 图 21-4。 
<< Statistics` 
<< Graphics Graphics` 
Clear[n, k, t1]; n = 100; t = {}; 
Forli = 1, i <= 3, i++, dist = RandomArray[NormalDistribution[S, 1], n]; 
t= Sort[dist]; tl = Table[{t[[K]], k/n}, {k, 1, nj]; 
tl = Append[tL {t[[n]], 1}]; tt = Append[t], {t[[n]] + 1, 1}]; 
gl1= Plot[CDF[NormalDistribution[S, 1], zj, {x, t[[1]] - 1, t[[n]] + 1}, 
PlotStyle -> RGBColor[1, 0, 0], DisplayFunction -> Identity]; 
g2 = ListPlot[tl1, PlotJoined -> True, DisplayFunction -> Identity]; 
Show[gl, g2, DisplayFunction -> $DisplayFunction];] 


3 4 5 6 7 8 9 3 和 5 6 7 8 3 4 5. 6 7 8 


图 21-4 
对 不 同 的 样本 值 ， 得 到 的 经 验 分 布 函 数 不 同 ， 事 实 上 ，FF, (x) 是 观察 值 x,%,…,% 中 小 于 
或 等 于 x 的 频率 , 它 是 一 个 以 等 概率 仅 取 n 个 值 x,x,,…,, 的 离散 性 随机 变量 的 分 布 函数 。 当 
样本 容量 较 大 时 ， 经 验 分 布 函数 尺 (x) 是 总 体 分 布 函数 严 (x) 的 良好 近似 。 而 且 一 般 n 越 大 ， 


近似 得 越 好 。 这 正 是 著名 的 格 列 汶 科 定 理 所 阐 述 的 内 容 ， 
-9j-! 


pl 
N+% oo 


练习 5 改变 n， 重 做 实验 4， 进一步 体会 格 列 汶 科 定 理 的 内 涵 。 

练习 6 产生 服从 均匀 分 布 U0 (0,1) 的 一 组 随机 数 作为 样本 值 , 试 画 出 经 验 分 布 函数 , 并 在 同一 
坐标 系 下 副 出 U (0,1) 的 分 布 函 数 进行 比较 。 

: 直方 图 。 假 定 某 班 60 个 男生 身高 (单位 ，cm》〉 数 据 如 下 : 

166， 169, 181, 173, 165, 169, 170, 163, 175, 164, 171, 162, 156, 159, 173, 168, 167, 
165, 172, 170, 180, 177, 161, 170, 164, 163, 172, 167, 157, 165, 168, 174, 165, 168, 
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162, 163, 159, 163, 167, 173, 161, 160, 165, 160, 173, 164, 166, 152, 163, 164, 176, 
160, 164, 167, 158, 172, 167, 168, 167, 170 
现在 希望 通过 这 些 数据 找 出 该 班 身 高 的 分 布 情况 。 
解 : 可 以 用 频率 直方 图 来 粗略 地 描述 总 体 的 分 布 ， 基 本 步骤 为 ; 
第 一 步 ， 找 出 它们 的 最 大 值 为 181， 最 小 值 152， 极 差 R=181-152= 29。 
第 二 步 : 分 组 定 组 距 : 
分 组 没有 一 定 的 通用 原则 ， 通 常 当 数据 个 数 n 宇 50，, 分 成 10 组 以 上 ; 当 nc<50 时 ,一般 分 
5 组 左右 。 分 组 数 m 确定 后 ， 可 按 
a 
m 1 一] 
来 确定 组 距 d。 
本 实验 中 ， 将 数据 分 成 10 组 ， 组 距 为 3。 
第 三 步 ， 定 分 点 ， 定 区 间 : | 
取 起 点 a=151.5， 终 点 181.5。 从 而 得 作 图 区 间 为 [151.5,181.5] (注意 ， 我 们 取 各 组 的 边界 
值 比 身高 多 一 位 小 数 ， 为 的 是 使 每 个 身高 都 落 在 一 个 组 的 内 部 )。 
第 四 步 ， 样本 值 落 入 各 组 的 频数 和 频率 如 表 21-2: 
表 21-2 


151.5~154.5 
154.5~157.5 
157.5~160.5 
160.5~163.5 


163.5~166.5 
166.5~169.5 
169.5~172.5 
172.5~175.5 
175.5~178.5 
178.5~181.5 


它 给 出 了 该 班 同学 中 不 同 身高 组 的 同学 在 全 班 中 所 占 比 例 。 

第 五 步 ， 作 频率 直方 图 如 图 21-5。 

实现 以 上 步骤 的 Mathematica 语句 为 : 

<< Statistics` 

<< Graphics`Graphics` 
data = {166, 169, 181, 173, 16S, 169, 170, 163, 175, 164, 171, 162, 156, 159, 173, 168, 167, 165, 
172, 170, 180, 177, 161, 170, 164, 163, 172, 167, 157, 16S, 168, 174, 16S, 168, 162, 163, 159, 163, 
167, 173, 161, 160, 165, 160, 173, 164, 166, 152, 163, 164, 176, 160, 164, 167, 158, 172, 167, 168, 
167, 170};max = Max[data] 
min = Min[data] | 
SampleRange[data] 
t= BinCounts[data, {151.5, 181.5, 3}] 
dist = Table[{t[[k]], 151.5 + 3*(k - 1)}, {k, 1, 10}];BarChart[dist]; 
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12 


151 154 157 160 163 166 169 172 175 178.5 
图 21-5 


直方 图 是 最 常用 的 一 种 表现 数据 的 方法 。 它 通常 把 值 域 分 成 若干 相等 的 区 间 , 于 是 数据 就 
按 区 间 分 成 若干 组 ， 每 组 做 成 一 个 矩形 ， 其 高 和 该 组 中 数据 的 多 少 成 比例 ， 其 底 为 所 属 区 间 。 
这 些 矩 形 就 是 直方 图 ， 它 给 数据 的 分 布 一 个 直观 的 形象 。 本 实验 给 出 的 是 频率 直方 图 ， 它 以 组 
距 为 底 ， 以 频率 为 高 作 和 矩形 。 

它 有 三 个 特点 : 

(1) 每 个 小 长 方形 的 面积 等 于 该 组 的 频率 ; 

(2) 所 有 的 小 长 方形 的 面积 之 和 等 于 1; 

(3) 介 于 任何 两 条 直线 xX=a 和 x=b 之 间 的 面积 等 于 身高 落 在 该 区 间 的 频率 。 

可 以 想象 ， 若 我 们 得 到 了 一 所 大 学 男 大 学 生 〈 比 如 有 上 千 人 ) 的 数据 ， 这 时 ， 直 方 图 的 分 
组 数 增多 ,组 距 变 得 很 小 ， 画 出 的 直方 图 项 端 阶梯 形 近 似 成 一 条 曲线 。 于 是 ， 可 以 用 这 条 曲线 
近似 描述 该 大 学 生 的 身高 的 分 布 规律 。 曲 线 下 界 于 直线 Xx=a 和 x=b 之 间 的 面积 近似 等 于 身 
高 位 于 4 与 之 间 的 概率 。 
练习 7 改变 实验 7 中 的 组 距 ， 重 做 实验 7， 并 将 所 得 到 的 图 形 与 图 21.5 比较 ， 你 能 得 到 什么 
结论 ? 
练习 8 设 总 体 和 服从 正 态 分 布 N(4,1),%4,…,%, 为 取 自 该 总 体 的 一 组 样本 值 。 根 据 这 组 样本 值 


作出 频率 直方 图 ， 用 直方 图 来 近似 密度 并 与 密度 图 比较 。 
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实验 二 十 二 统计 推 斯 


统计 推断 是 数理 统计 学 中 的 一 个 重要 部 分 , 它 是 利用 样本 的 资料 , 对 总 体 的 某 些 性 质 进行 
估计 或 做 出 判断 ， 从 而 达到 认识 总 体 的 目的 。 统计 推断 的 内 容 大 致 可 分 为 两 个 方面 : 一 是 参数 
估计 , 二 是 统计 假设 检验 。 本 实验 的 主要 目的 是 通过 观察 和 分 析 实 验 结果 ， 加 深 对 统计 推断 的 
基本 概念 和 基本 思想 的 理解 。 


22.1 点 估计 


”22.1.1 点 估计 


点 估计 就 是 适当 地 选择 一 个 统计 量 作为 未 知 参数 的 估计 《〈 称 为 估计 量 )， 将 样本 值 代入 估 
计量 ， 以 得 到 的 估计 量 的 值 作为 未 知 参数 的 近似 值 〈 称 为 估计 值 )。 

常用 求 点 估计 的 方法 有 矩 估 计 法 和 极 大 似 然 估计 法 。 撼 估计 法 是 以 样本 和 矩 作为 相应 总 体 
矩 的 估计 量 ， 得 到 总 体 未 知 参数 8 的 估计 ; 极 大 似 然 估计 法 的 基本 思想 是 在 参数 域 中 选取 6 使 
样本 点 出 现 概率 为 最 大 ， 从 而 6 就 是 未 知 参数 的 估计 。 | 
设 样 本 X,,XX,,…,X, 取 自 总 体 U(a,b) ,a,b 为 未 知 参数 , 试 求 a,b 的 矩 估计 和 极 大 似 然 


估计 。 
解 : a,b 的 矩 估 计量 分 别 为 : 


43- S07 i 
b= -24+ 六 ox 一 人 


, = min X,, b2 = max X, (22-2) 


了 
lgi<n 


(22-1) 


极 大 似 然 估计 量 分 别 为 : 


下 面 进行 模拟 : 

(1) 取 a=0,b=1, N=50, 产生 个 服从 分 布 U(a,b) 的 随机 数 当 作 样本 值 , 分 别 代入 (1)、 
(2) 式 计算 a,b 的 估计 值 ， 并 与 理论 值 0,1 比较 ; 

(2) 将 (1) 重复 10 次 ,用 10 次 估计 值 的 平均 值 作为 wb 的 估计 ， 并 与 (1) 的 结果 比较 ， 
体会 其 中 包含 的 概率 思想 。 
练习 1 增加 和 NN， 重复 (1)， 并 与 (1) 的 结果 比较 ， 体 会 其 中 蕴含 的 概率 思想 。 
练习 2 设 样本 值 %,x,…,x 来 自 总 体 (ua2)〔 自 行 选 定 凡 Ga? )， 试 求 凡 Ga? 的 矩 估 计 值 和 极 
大 似 然 估计 值 。 
练习 3 设 样本 值 x,x,…,x, 来 自 总 体 B(20,p)〔 自 行 选 定 p)， 求 p 的 矩 估计 值 和 极 大 似 然 估 
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计 值 。 
练习 4 ， 设 样本 值 所 ,为 …, 为 来 自 总 体 z(2) 《自行 选 定 4 )， 求 丸 的 矩 估计 值 (分 别 用 一 阶 和 二 


阶 样本 矩 估计 ) 和 极 大 似 然 估 计 值 ， 填 入 表 22-1 中 。 
表 22-1 


(二 阶 短 ) 入 = 二 完 (X, 一》 


( 极 大 似 然 ) 允 = 部 


如” 捕 鱼 问 题 

湖 中 有 人 鱼 ， 其 数 不 知 。 现 在 请 你 想 一 个 办 法 ， 能 将 湖 中 的 鱼 数 大 致 估计 出 来 。 

解法 1: 设 湖 中 及 条 鱼 。 先 捕 出 7 条 鱼 ， 做 上 记号 后 放 回 湖 中 ( 设 记号 不 消失 )， 让 湖 中 的 
鱼 充分 混合 后 ， 再 从 湖 中 捕 出 s 条 鱼 ， 设 其 中 有 7 条 鱼 标 有 记号 ， 则 了 是 随机 变量 ， 且 服从 
超 几 何 分 布 


P 位 = -Se (0<t<r) 


应 用 极 大 似 然 估计 思想 ， 寻 找 N， 使 P{T = 人 } 达 到 最 大 。 得 


sr 
N = 一 
1 


于 是 取信 -| 作为 湖 中 鱼 数 的 一 种 估计 ， 其 中 [x] 表示 不 超过 x 的 最 大 整数 。 
解法 2， 用 矩 估计 法 。 因 为 了 是 超 几 何 分 布 ， 其 数学 期 望 是 
sr 
A 
此 即 抓 条 鱼 得 到 有 标记 的 鱼 的 总 体 平均 数 。 而 现在 只 捕 一 次 ,出 现 1 条 有 标记 的 鱼 ， 由 箱 估 
计 法 ， 令 总 体 一 阶 原点 矩 等 于 样本 一 阶 原点 矩 ， 即 于 =1， 也 得 态 =| 工 | 


取 湖 中 的 鱼 数 为 N=3000， 设 湖 中 做 记号 的 鱼 数 为 r=1000， 下 面 进行 模拟 试验 : 
(1) 在 1~3000 中 随机 选取 r=1000 个 数 作 标记 ， 再 从 1~3000 中 随机 选取 s=100 个 数 ， 统 
计 100 个 数 中 有 标记 的 数 作为 :， 记 录 试 验 结果 并 填 入 表 22-2。 
表 22-2 
捕 出 的 鱼 数 s 
有 记号 的 鱼 


有 记号 的 鱼 的 频率 
湖 中 鱼 的 估计 
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(2) 改变 s=300,500,700,1000， 重 复 过 程 (1)。 
练习 5 改变 NN 及 r， 重 做 实验 2。 

思考 : 若 湖 中 做 记号 的 鱼 数 及 捕 出 的 鱼 数 不 变 ， 如 何 增加 估计 的 可 信和 度 ? 
练习 6 有 两 个 外 形 完全 相同 的 箱子 ， 一 个 箱子 中 装 有 99 个 白 球 ，1 个 红 球 。 另 一 个 箱子 中 
装 有 1 个 白 球 ，99 个 红 球 。 现 从 两 个 箱子 中 任 取 一 箱 ， 从 中 任 取 一 球 。 请 根据 取 球 结果 估计 


箱 中 白 球 数 与 红 球 数 之 比 是 Yo 还 是 9 。 并 模拟 之 。 


22.1.2 点 估计 的 评选 标准 


我 们 知道 ， 对 于 同一 待 估 的 参数 ， 可 以 构造 许多 个 估计 量 ， 那 么 如 何 衡量 估计 量 的 优 劣 
呢 ? 由 于 估计 量 是 一 随机 变量 , 在 考虑 估计 量 的 优 劣 时 , 不 能 从 一 个 估计 量 的 某 次 表现 上 去 衡 
量 ， 而 应 看 其 整体 性 质 。 即 从 估计 量 的 概率 分 布 的 性 质 上 ， 去 考察 估计 量 的 优良 性 。 据 此 ， 提 
出 三 条 标准 : 

(1) 一 致 性 ; 指 样 本 容量 一 时 ， 估 计量 6 具有 趋 于 被 估计 参数 9 的 渐 近 性 质 ， 即 
z 悄 -el< 引 1 

(2) 无 偏 性 ， 指 不 论 的 大 小 如 何 ， 总 有 E(6) =6 ; 

(3) 有 效 性 :车 ,6 都 是 参数 9 的 无 偏 估计 量 ， 但 D(6 ) 志 DC(6,)， 则 称 6 比 6 有效 。 这 
一 性 质 反映 了 估计 量 在 周围 的 集中 情况 。 
: 设 总 体 呈 服从 正 态 分 布 N(1,1)， 取 4=0， 从 总 体 抽取 10 组 容量 为 20 的 样本 ， 分 
别 以 耻 和 多 ,作为 总 体 均值 4 的 估计 量 ， 计 算 10 组 估计 值 并 将 估计 值 描 在 图 上 。 
解 : 作出 估计 ， 并 给 出 图 形 如 图 21-1 (x 作为 估计 量 )、 图 21-2 (xi 作为 估计 量 )。 


图 21-1 图 22-2 


可 以 看 到 ; (1) 因 为 估计 量 是 一 随机 变量 , 每 组 抽样 计算 所 得 估计 值 具 有 偶然 性 , 所 以 “无 
偏 性 ”是 指 同 总 体 多 次 抽样 所 得 估计 值 的 平均 值 接近 真 参数 值 , 而 非 一 次 抽样 所 得 估计 值 就 是 
真 参 数值 。 


(1) 显然 ， 叉 的 取 值 更 集中 在 j 的 附近 ， 因 此 叉 比 X, 有 效 。 事实 上 ， 虽 然 样 本 均值 闻 及 
X, 都 是 总 体 均值 的 无 偏 估 计 。 但 D(z)=0 << D(X,)=0?。 
n 


22.2 区 间 估 计 
参数 的 点 估计 是 用 样本 值 算得 一 个 数值 作为 参数 9 的 估计 值 ， 而 区 间 估 计 是 以 满足 条 件 
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人 (Xi,…,X,) 志 @(X,,…,X,) 的 两 个 统计 量 外 ,6 为 端点 的 区 间 ( 人 ,多 )， 当 有 了 样本 志 ,…,% 
时 ， 就 把 6 估计 在 区 间 (6(%,…, 为 ), 久 (4,…, 专 ) 之 内 。 区 间 估 计 也 常 称 为 置信 区 间 。 

山 呈 汪 置信 区 间 的 非 唯一 性 。 已 知 x ,za，…, 尺 来 自 正 态 总 体 Na?) ， 其 中 =1， 取 
& =0.05 ， 求 置信 度 为 0.95 的 及 的 置信 区 间 。 


解 : 当 总 体 X 具有 正 态 分 布 时 ， 样 本 均值 具有 正 态 分 布 NE), 即 5= 二 疏 - NO.D 。 它 
n 


的 密度 函数 了 (w) 不 依赖 于 任何 参数 。 对 于 给 定 的 置信 度 1-w =0.95， 可 定 出 两 个 常数 a,bp， 使 
P{a<U <b}=@B(b) -Ba)=0.95。 如 取 a=-1.96, 则 b=1.96， 有 P{-1.96<U <1.96}=0.95， 


”此 式 等 价 于 
pls-196F <n < 5+196 于 |-095 
也 就 是 说 (1.96- 二 ,+1.96- 呈 ) 是 j4 的 一 个 置信 度 为 95% 的 置信 区 间 。 


nn Vn 
改变 a， 因 为 $B(5) =0.95+ (a)， 查 表 可 求 出 b 的 值 ， 均 满足 
P{a<U <b}=0.95 


因此 (+a 万 ' T+b FE) 都 可 作为 44 的 置信 和 度 为 95% 的 置信 区 间 。 


下 面 进行 模拟 : 取 J4=0，n=20， 产 生 n 个 服从 正 态 分 布 N(4,1) 的 随机 数 ， 分 别 取 
a = 一 1.96 ,-1.80,-1.70,-2.10,-2.358.， 由 ®@(b)=0.95+@(a) 计算 bp， 从 而 得 到 置信 区 间 


Gra tb he) 试验 结果 填 入 表 22-3; 
n 


表 22-3 


表 中 最 后 一 行 是 置信 区 间 的 长 度 ,可 以 看 出 ， 当 a,b 取 不 同 的 值 时 , 求 得 置信 区 间 的 长 短 
不 同 ， 但 置信 度 均 为 95%。 可 见 ， 置 信 区 间 并 不 唯一 ， 区 间 长 度 也 不 一 样 。 考 虑 到 置信 区 间 
短 表示 估计 的 精度 高 ,因此 我 们 使 用 最 短 的 置信 区 间 。 在 概率 密度 函数 为 单 峰 且 对 称 〈 如 正 态 
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分 布 ) 的 情形 ， 当 a=-b 时 求 得 的 置信 区 间 最 短 ， 常 取 a=-z。，b= ze ， 其 中 zu 为 标准 正 态 
2 2 


分 布 的 上 c 分 位 点 。 
练习 7 分 别 取 4b 的 一 些 值 ， 由 @(a)=@(5b) 一 0.95 计算 a， 重 作 实 验 4。 
置信 区 间 的 频率 解释 。 设 某 地 区 成 年 女子 的 身高 X ~ N(L,1) ,随机 抽取 容量 为 n 的 
子 样 X,X…X, ， 求 总 体 均 值 凡 的 置信 度 为 0.95 的 置信 区 间 。 
解 : 已 知 =1-0.95=0.05 ，G =1, 置信 度 为 95% 的 置信 区 间 为 (区 -1.96/a, 葡 +1.96/V] 
《三 为 样本 均值 ， 样 本 容量 为 n)。 

下 面 进行 模拟 试验 : 

(1) 取 总 体 X ~ NG4D ， 随 机 抽取 20 组 容量 为 10 的 子 样 ， 计 算 4 的 置信 度 为 0.95 的 置 
信和 区间 ， 并 将 所 得 区 间 描 在 图 22-3〈 若 所 得 区 间 包 仿 WL 则 区 间 线 与 水 平 线 相交 ): 


1.5 1.5 
1 1 
5 5 
5 二 
-1 


图 22-3 
(2) 改变 试验 参数 ， 取 容量 n= 20 ， 随 机 抽取 六 = 20 ,30 ,50 ,100 组 子 样 。 统 计 试 验 结果 并 
填 表 22-4: 


表 22-4 


包含 真 值 不 含 真 值 te 汪 
区 间 个 数 区 间 个 数 


事实 上 ， 当 样本 未 取 定 时 ，( 这 -1.96/n, 芝 +1.96/ ma] 是 随机 区 间 ， 对 于 不 同 的 样本 值 取 


到 不 同 的 区 间 ， 在 这 些 区 间 中 ， 有 些 包 含 参数 的 真 值 ， 有 些 则 不 包含 。 从 表 22-4 可 以 看 出 : 
当 和 置信 和 度 为 0.95 时 ， 在 随机 区 间 的 若 于 个 观察 值 中 ， 大 约 有 95% 的 区 间 包 含 参数 的 真 值 ， 而 
对 具体 的 一 个 来 说 ， 它 包含 真 值 的 概率 为 95% ， 也 就 是 说 ， 该 区 间 包 含 参 数 的 真 值 这 个 事实 
的 可 靠 程 度 为 95%。 我 们 相信 这 个 事实 ， 犯 错误 的 可 能 性 为 5%。 
练习 8 改变 置信 和 度 以 及 样本 容量 ， 重 作 实 验 5 。 
练习 9 观察 样本 容量 对 置信 区 间 的 影响 。 

考虑 正 态 总 体 N(1,1) 的 均值 4 的 置信 度 为 095 的 置信 区 间 : 


(X-1.96-FE， +1.96) 
Vn Vn 
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随机 抽取 50 组 容量 分 别 为 n =4,25,100 的 子 样 ， 计 算 4 的 置信 和 度 为 0.95 的 置信 区 间 。 你 能 得 
到 什么 结论 ? 


”置信 和 度 对 置信 区 间 的 影响 。 下 面 是 常用 的 三 种 置信 度 : 
=0.1, za =1.64; a=0.05, za =1.96; 0=0.01, zs =2.58; 
考虑 正 态 总 体 N(4,1) 的 均值 4 的 置信 度 为 0.95 的 置信 区 间 : 
一 1 
(X 一 2 一 -， 六 
2 + 再) 
取 总 体 X ~ N(0,1)， 随 机 抽取 50 组 容量 为 10 的 子 样 ， 分 别 取 w= 0.$,a =0.1 @& =0.01， 
计算 相应 的 置信 区 间 ， 为 了 观察 方便 ， 将 所 得 区 间 中 心 排序 后 分 别 描 在 图 22-4、 图 22-5、 图 


22-6; 
0 | | 1. | 
0 HH HH 
| HR 本 由 | 
22-4 @=0.5 图 22-5 Qa=0.1 图 22-6 a=0.01 


可 以 看 出 : @ 置信 和 度 为 1-&=0.5 的 置信 区 间 中 包含 参数 真 值 的 大 概 有 50%。 而 置信 和 度 
为 0.99 的 置信 区 间 中 包含 参数 真 值 的 比例 就 很 高 了 。 即 置信 水 平 越 高 ， 置 信和 区间 包 含 参数 的 
真 值 概率 就 越 大 ， 根 据 实际 问题 一 般 选 置信 和 度 为 0.90，0.95，0.99。 

@ 对 同样 的 样本 容量 ， 置 信 水 平 越 高 ， 置 信 区 间 长 度 越 长 。 
练习 10 ”改变 样本 容量 ， 重 作 实验 6。 


22.3 假设 检验 


假设 检验 是 一 类 重要 的 统计 推断 问题 ， 它 是 根据 样本 所 提供 的 信息 ， 检 验 关 于 总 体 的 某 
个 假设 而 是 否 正确 。 根 据 实际 推断 原理 ， 若 原 假 设 互 为 真 ， 而 样本 值 提 供 的 是 小 概率 事件 ， 
则 作出 拒绝 原 假设 的 决定 ， 否 则 作出 接受 印 的 决定 。 

考虑 到 作出 决策 的 依据 是 一 个 样本 , 因此 在 进行 假设 检验 时 , 有 可 能 犯 两 类 错误 : @ 若 
原 假 设 三成 立 ， 而 做 出 拒绝 辆 的 结论 ， 称 作 犯 第 一 类 错误 ， 犯 第 一 类 错误 的 概率 记 作 ; 
@ 若 原 假设 Ho 不 成 立 ， 而 做 出 接受 原 假设 的 结论 ， 称 作 犯 第 二 类 错误 ， 犯 第 二 类 错误 的 概 
率 记 作 。 这 两 类 错误 如 表 2 22-5 所 示 : 


表 22-5 


样本 容量 一 定时 ， 两 类 错误 的 关系 。 
考虑 关于 正 态 总 体 NA,D 的 均值 4 的 假设 检验 : 


Ho: 人 =A Hi: HH=W Ho 
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(1) 在 同一 坐标 系 下 画 出 两 总 体 W (0,1) 与 N (0.5,1) 的 概率 密度 图 (其 中 j=0, =0.5 )， 
并 标 出 犯 第 一 类 错误 的 概率 为 & =0.05 时 的 一 个 临界 点 x=z。 =1.96, 则 临界 点 右 方 ，N(0.D 概 


率 密度 曲线 与 x 轴 之 间 所 夹 区 域 表 示 犯 第 一 类 错误 的 概率 的 一 半 ， 而 临界 点 左 方 ，N(0.5,1) 


概率 密度 曲线 与 x 轴 之 间 所 夹 区 域 表示 犯 第 二 类 错误 的 概率 有 ; 
(2) 改变 犯 第 一 类 错误 的 概率 w ， 即 改变 临界 点 分 别 为 x=1.64,2.58 ， 如 图 22-7 所 示 ， 观 
察 第 二 类 错误 的 变化 情况 。 


22-7 


从 图 22-7 中 可 以 看 到 : 当 临 界 点 变 小 时 ， 犯 第 一 类 错误 的 概率 增 大 ， 同 时 ， 犯 第 二 类 
错误 的 概率 B 变 小 ; 而 当 临 界 点 增 大 时 ， 犯 第 一 类 错误 的 概率 w 减 小 , 犯 第 二 类 错误 的 概率 B 
却 增 大 。 

可 见 ， 当 样本 容量 一 定时 ， 我 们 不 能 同时 控制 两 类 错误 的 概率 。 在 实际 当中 ， 通 常 限 制 
犯 第 一 类 错误 的 概率 w ， 即 给 定 显著 性 水 平 w 。 
练习 11 分 别 改变 jw =0.3, =0.1， 重 复 过 程 (1)， 你 能 得 到 什么 结论 ? 
四 设 X,,X,,…,X, 是 取 自 正 态 总 体 N(J,1) 的 样本 , 在 显著 性 水 平 w = 0.05 下 检验 假设 
Hy: AM=0 Hi: MAz0 ( 取 14= 由 >0) 
试 通过 计算 机 模拟 验证 ， 犯 第 一 类 错误 的 概率 一 般 不 超过 @& = 0.05 。 
解 : 模拟 步骤 如 下 : 

(1) 随机 产生 取 自 正 态 总 体 W(0,D 的 m 组 样本 ，m=100， 每 组 样本 的 容量 m=20，; 

(2) 对 每 组 样本 ， 求 得 4 的 实测 值 ， 看 是 否 落 入 拒绝 域内 ， 若 是 ， 则 计数 一 次 ， 统 计 拒 绝 
次 数 ， 并 计算 拒绝 次 数 :， 以 t/m 作为 犯 第 一 类 错误 的 频率 ; 

表 22-6 


| | 不 能 拒绝 次 数 拒绝 次 数 犯 第 一 类 错误 频率 
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练习 12 分 别 改 变 n 以 及 a ， 重 作 实验 8， 体 会 假设 检验 的 意义 。 


附 “Mathematica 程序 
1. 实验 1 的 程序 
<< Statistics` 
m = 10; n = $50; Clear[il; t = {}; 
For{j = 1,j <= m, j++, ajul0 = {}; bjul0 = {}; amlel0 = {}; bmle10 = {}; 
rand = RandomArray[UniformDistribution[0, 1], n]; mean = Mean[rand]; 
ajul0 = Append[aju10, mean - Sqrt[3/n*Sum[(rand[[i] - mean)^2, {i, 1, nj]]]; 
bjul0 = Append[bjul0, mean + Sgrt[3/n*Sum[(rand[[i]] - mean)^2, {i, 1, n}]]l; 
amlel10 = Append[amle10, Min[rand]]; bmle10 = Append[bmie10, Max[rand]]; 
t= Append[t, {Mean[aju10], Mean[bju10], Mean[amie10], Mean[bmle10]}];] 
TableForm[t, TableHeadings -> {None, {"aju", "bju”", "amle"’, "bmile"'}}] 
2. 实验 2 的 程序 
<< Statistics、 
r= 1000; s = {100, 300, 500, 700, 1000};out = {}; 
Forlj = 1 j <= Length[s], j++, ss = s[{j]]; ts = {}; 
For[i = 1, i <= ss, i++, aa = Random[Integer, {1, 3000}]; ts = Append[ts, aa]]; 
t= Count[lts, x_/; 1 <= x <= 1000]; n = Floor[ss*r/t]; 
out = Append[out, {ss, t, N[t/ss], nj];]; 
TableForm[out, TableHeadings -> {None, {"'s'"', ''times", "frequencies", "Number''}}] 
3. 实验 3 的 程序 
<< Statistics` 
m= 10; n = 20; ujul0 = {}; umlel10 = {}; 
Forlj = 1,j <= m, j++, 
rand = RandomArray[NormalDistributionf0, 1], n]; mean = Mean[rand]; 
ujul0 = Append[uju10, {mean, 0}]; umlel0 = Append[umle10, {rand[[1]], 0}];}]; 
g1 = ListPlot[ujul0, PlotStyle -> PointSize[0.03]]; 
g2 = ListPlot[umle10, PlotStyle -> PointSize[0.03]]; 
4. 实验 4 的 程序 
<< Statistics` 
m=10;n=20;sg=1;out={); 
For[i = 1, i <= 5S, i++, 
aa = {-1.96, -1.80, -1.70, -2.10, -2.58}; bb = {1.96, 2.19S, 2.SS, 1.8S, 1.695}; 
rand = RandomArray[NormailDistribution[0, sg], n]; 
mean = Mean[rand]; al = mean + aal[lill*sg/Sgqrt[n]; 
bl = mean + bb[[i]]*sg/Sqrt[n]; cl = bl - al; 
out = Append[out, {aa[[i]], bb[[i]], al, bl, cl}];]; 
Tapleromnlout TableHeadings -> {None, {"'a”, "b"', "'left", "right" "length''}}] 
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5. 实验 $ 的 程序 
<< Statistics™ 


<< Graphics . 
D=10;k= 20;sample100 = Table[RandomArray[NormalDistribution[0, 1], n], {kj]; 
”confidenceIntervals = Map[MeanCI[#] &, sample100]; 
num = Length[Select[confidencelIntervals, ##[1]] <0< 枚 [2]] &]] 
ciPlot[confidenceIntervals ,mu ,n_ ,opts__ ]:=Show[Graphics[{Line[{{1l,mu)}, 
{n,mu}}],Table[Line[{{i,confidenceIntervals[[i,1]]}),{i,confidenceIntervals[[i,2]]}}], {i,n}]}, Axes-> 
{False,True}, AspectRatio->0.3, PlotRange->All, opts]]; 
ciPlot[confidenceIntervals, 0, 20, DefaultFont :> {"Arial", 10}]; 
me = Transpose[{Range[k], Sort[Map[Mean,sample100]}}]; 
ciPlot[Sort[confidenceIntervals, Mean[#1]<Mean[#2]&], 0, k, 
Epilog->{PointSize[0.02], Map[Point,me]},DefaultFont:>{"Arial’,10}]; 
times = {}; n = 20; m = 50; 
For[k = 10, k <= m, k += 10, 
samplel100 = Table[RandomArray[NormalDistribution[0, 1], n], {k}]}; 
confidenceIntervals = Map[MeanCI[#] &, samplel100]; 
num = LengthfSelect[confidenceIntervals, #[[1]] < 0 < #[[2}] &])}; 
times = Append[times, num];];times 
6. 实验 6 的 程序 
<< Statistics 
<< Graphics 
ciPlot[confidenceIntervals_, mu_, n_, opts_] := 
Show[Graphics[{Line[{{1, mu}, fn, mu}}], 
TablelLine[{{i, confidencelIntervals!{[i, 1]]}, {i, confidencelIntervals[[i, 21]}}], {i, n}]}, 
Axes -> {False, True}, AspectRatio -> 0.3, PlotRange -> All, opts]]; 
n= 10;k = 50; confidencelevel = {0.50, 0.90, 0.99}; 
Forli = 1, i <= Length[confidencelevel], i++, 
samplel00 = TablefRandomArray[NormalDistribution[0, 1], n], {k}]}; 
confidencelIntervals = Map[MeanCI[l#, ConfidenceLevel -> confidencelevel[[i]}] &, 
sample100]; 
num = Length[Select[confidencelIntervals, #{[1]] < 0 < #[{2}] &]); 
me = Transpose[{Range[k], Sort[Map[Mean, sample100]]}]; 
ciPlot[Sort[confidencelntervals, Mean[#1] < Mean[#2}] &], 0, k, 
Epilog -> {PointSize[0.02], Map[Point, mel}, DefaultFont :> {"Arial", 10}]};] 
7. 实验 7 的 程序 
<< Statistics` 
<< Graphics`Graphics` 
distl = NormalDistribution[0, 1];dist2 = NormalDistribution[0.5, 1]; 
g1 = Plot[{PDF[distl, x], PDF'[dist2, x}}, {x, -6, 6},}J; 
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g2 = Graphics[{Thickness[0.01], 


Line[{{1.96, 0}, {1.96, PDF[NormalDistribution[0.5, 1], 1.96]}}]}]; 


g3 = Graphics[{Thickness[0.01], 


Line[{{1.64, 0}, {1.64, PDF[NormalDistribution[0.5, 1], 1.64]}}]}]; 


g4 = Graphics[{Thickness[0.01], 


Line[{{2.58, 0}, {2.58, PDF[NormalDistribution[0.5, 1], 2.58]}}]}]; 


Show[g1, g2, g3, 84]; . 

8. 实验 8 的 程序 

<< Statistics™ 

n=20; m = {100, 300, 700, 1500, 2000, 5000}; out = {}; 
For[j = 1,j <= Length[m], j++, u = {}; 


For[i 三 1, i <= m[[j]], it+, 


dist = RandomArray[NormalDistribution[0, 1], n]; mean = Mean[dist]; 
u= Append[u, mean]]; 

accept = Count[u, x_ /; -1.96/Sqrt[n] <= x <= 1.96/Sqrt[n]]; 

reject = m[[j]] - accept; errorfrequence = N[reject/m[[j]]]; 

out = Append[out, {m[[j]], accept, reject, errorfrequence}];}]; 


TableForm[out, 
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TableHeadings -> {None, {"'m"', "accept", ''reject"', "errorfrequence"}}] 


第 二 篇 研究 实验 


实验 二 十 三 ”数列 与 级 数 


极限 是 微 积 分 中 最 重要 的 基本 内 容 之 一 。 远 在 公元 前 3 世纪 ， 古 希腊 人 阿 基 米 德 就 采用 
了 数列 极限 的 思想 来 计算 曲 边 三 角形 的 面积 本 实验 的 目的 是 通过 计算 机 来 发 现 数列 的 规律 与 
极限 状态 的 性 质 。 i 

所 谓 一 个 无 穷 数列 是 指 按 一 定 顺序 排列 的 一 组 数 


py (23-1) 
而 一 个 无 穷 级 数 则 是 由 无 穷 项 构成 的 和 式 
Va, =a ta + (23-2) 


n=1 


数列 与 极限 有 着 密 不 可 分 的 关系 。 给 定 一 个 无 穷 级 数 〈23-2)， 它 唯一 确定 了 一 个 无 穷 数 
列 
$192," 


其 中 5 =@ +…+0,，n=1,2,…。 反 之 , 给 定 一 个 无 穷 数列 (23-1)， 它 也 唯一 地 确定 了 一 个 无 
穹 级 数 六 b,， 这 里 h =a, b =a, -ww 1, n=2,3,…。 而 且 ， 无 穷 级 数 的 和 就 是 相应 的 无 穷 数列 
的 极限 ， 因 此 ， 无 数列 与 无 闪 级 数 是 可 以 转化 的 。 

对 于 给 定 的 数列 {4,}， 需 要 研究 的 问题 是 : 

(1) 数列 a, 有 什么 规律 和 性 质 。 


(2) 当 n 一 时， 数列 a 的 极限 是 什么 。 


(3) 如 果 极 限 是 无 穷 大 ， 那 么 它 趋向 于 无 穷 大 的 阶 是 多 大 。 

(4) 如 果 数 列 的 极限 不 存在 ， 那 么 它 在 无 穷 大 时 的 极限 状态 有 怎么 样 ? 
对 于 给 定 一 个 无 穷 级 数 ， 也 具有 以 上 类 似 的 问题 。 

本 实验 以 斐 波 那 契 数列 和 调和 级 数 为 例 来 探讨 上 述 问 题 。 


23.1 裴 波 那 契 (Fibonacci) 数列 


13 世纪 意大利 著名 数学 家 斐 波 那 契 在 他 的 著作 《算盘 书 》 中 记载 着 这 样 一 个 问题 ， 
一 对 刚 出 生 的 幼 兔 经 过 一 个 月 后 可 长 成 成 免 ， 成 免 再 经 过 一 个 月 后 可 以 繁殖 出 一 对 幼 免 。 
假设 兔子 不 会 死亡 ， 问 一 年 后 总 共有 多 少 对 兔子 ? 
则 兔子 总 数 为 以 下 数列 ， 
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1,1,2,3,5,8,13,21,34,55,89,.… 
其 递 推 关系 式 由 


F,2 三 ith ,n=1,2,…， 卫 =1， E=1 (23-3) 


给 出 ， 该 数列 被 称 为 斐 波 那 契 数列 。 

为 考察 斐 波 那 契 数列 的 极限 与 规律 。 我 们 用 计算 机 算出 斐 波 那 契 数列 每 一 项 的 值 ， 并 在 
二 维 平面 上 画 出 顺 次 连接 点 (n, F,)，n=1,2,…,N 的 折线 图 ， 其 中 N 是 一 个 大 整数 。 
3 取 N=20， 观 察 斐 波 那 契 数列 的 折线 图 。 
解 ， 斐 波 那 契 数列 的 折线 图 如 图 23-1。 
练习 1 分 别 取 N = 50,100,200,500 ， 观 察 斐 波 那 契 数列 的 折线 图 。 斐 波 那 契 数列 是 否 单调 递 
增 ? 它 是 否 趋 向 于 无 穷 ? 它 增加 的 速度 是 快 还 是 慢 ? 

为 进一步 研究 斐 波 那 契 数列 忆 的 特性 ， 我 们 将 已 取 对 数 ， 在 直角 坐标 系 中 画 出 顺 次 连接 
点 (2n 已 )，7=132…,N 的 折线 图 如 图 23-2, 此 时 的 折线 图 近似 一 条 直线 。 因 此 ,我 们 猜测 In 所 
是 n 的 线性 函数 。 


6000 | 区 
5000 | 


4000 ~ 
3000 / 
2000 


DN 人 a 
a 


图 23-1 非 波 那 契 数列 的 折线 图 图 23-2 ”(n,In 丰 ) 的 折线 图 


加 取 m=20， 画 出 (xn 已 ) 的 折线 图 ， 并 对 以 上 数据 进行 拟 合 。 
解 : 在 直角 坐标 系 中 画 出 顺 次 连接 (n,ln 瑟 )，n=1,2,…,20 的 折线 图 如 图 23-2。 对 以 上 数据 


进行 拟 合 得 


InF, =-0.347764 + 0.482955n 
练习 2 分 别 取 N =100,1000,2000,5000,10000 ,用 直线 去 拟 合 数据 点 (n,InF), n=1,2,…,N， 
由 此 求 数列 下 的 近似 表示 。 注 意 观 察 In F, 的 线性 项 的 系数 ， 它 与 黄金 分 割 数 有 何 联系 ? 

那么 ， 怎 样 寻找 斐 波 那 契 数列 精确 的 通 项 公式 呢 ? 

斐 波 那 契 数列 满足 递 推 关 系 玉 ,= 已 ,+ 下 ， 称 这 样 的 递 推 关 系 为 二 阶 线性 〈 齐 次 ) 差 
分 方程 。 

根据 前 面 的 观察 ， 可 以 猜测 数列 F 的 通 项 具有 指数 形式 ， 不 妨 设 =4", 将 =4" 代 
入 递 推 关 系 式 〈23-3)， 得 到 4 “= 和"0+4" 。 消 去 非 零 因子 1" ， 有 42 = 和 +1。 从 而 解 得 ， 


4-1 ts 设 F =cAh?+tch’， 代入 (23-3) 式 ， 并 由 互 =FF=1， 即 可 确定 
常数 c 和 c 为 


_5+V5_1 -lI+V5 1 
各 三 = ,c= = 三 4， 
25 5 


(23-4) 
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因此 ， 斐 波 那 契 数列 的 通 项 公式 为 
| -学 | (23-5) 


2 


V5 V5 


斐 波 那 契 数列 与 自然 界 中 的 许多 现象 , 如 植物 的 枝 干 与 叶子 的 生长 ,有 密切 联系 。 它 在 纯 
数学 领域 的 一 个 极为 成 功 的 应 用 是 协助 苏联 数学 家 马 蒂 雅 合 维 奇 解决 了 著名 的 希 尔 伯 特 
(Hilbert) 第 十 问题 。 此 外 ， 它 在 优化 、 运 筹 以 及 计算 机 科学 与 艺术 领域 都 有 着 极 大 的 应 用 价 
值 。 下 面 给 出 斐 波 那 契 数 列 的 几 个 例子 。 

例 1. 《蜜蜂 的 “家 谱 ”) 蜜蜂 的 繁殖 规律 十 分 有 趣 。 蜂 后 所 产 的 卵 ， 受 精 的 钱 化 为 峻 蜂 (及 
工蜂 或 蜂 后 )， 未 受精 的 钥 化 为 雄 蜂 。 在 追 滴 雄 蜂 的 家 谱 时 ， 一 只 雄 蜂 的 第 代 子 孙 数 且 刚 好 就 
是 斐 波 那 契 数列 的 第 nn 项 下 ,。 

例 2，《〈 钢 琴音 阶 的 排列 ) 钢琴 的 13 个 半音 阶 ， 其 排列 完全 与 雄 蜂 第 6 代 的 排列 情况 相 
同 ， 音 阶 排列 与 斐 波 那 契 数列 有 密切 的 关系 。 

例 3，《〈 树 的 分 枝 ) 如 果 一 棵 树 每 年 都 在 生长 ， 第 二 年 有 两 个 分 枝 ， 通 常 第 三 年 就 有 三 个 
分 枝 ， 第 四 年 五 个 ， 第 五 年 八 个 ，…… ， 每 年 的 分 枝 数 都 是 斐 波 那 契 数 。 

例 4. 《杨辉 三 角形 与 斐 波 那 契 数列 ) 把 杨辉 三 角形 中 的 数据 排列 在 表格 中 ， 自 左下 至 右 
上 和 斜 线 相 加 ， 就 可 以 得 到 斐 波 那 契 数列 ， 如 表 23-1 所 示 。 
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表 23-1 杨辉 三 角形 与 斐 波 那 契 数列 


取 一 整数 m (如 m=51)， 将 辈 波 那 契 数列 模 普 得 到 -周期 数列 ， 将 该 周期 数列 的 值 
作为 音 高 ， 编 程 演奏 它 。 
练习 3” 取 几 组 不 同 的 mm， 或 将 几 段 合并 ， 感 受 旋律 的 变化 。 


练习 4 对 斐 波 那 契 数 列 ， 设 g, = 二- ， 请 观察 数列 {8,} 的 变化 趋势 


23.2 调和 级 数 
熟知 ， 高 等 数学 中 的 p- 级 数 : 


了 (23-6) 
n=1 天 
当 p>1 时 收敛 ， 当 p 志 1 时 发 散 。 特 别 地 ， 当 p=1 时 ， 级 数 〈23-6) 称 为 调和 级 数 。 
一 个 令 人 感 兴趣 的 问题 是 ， 调 和 级 数 发 散 到 无 穷 的 速度 有 多 快 ? 或 者 说 数列 
Re 
2 3 n 
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趋 于 无 穷 的 速度 有 多 快 ? 
一 个 直观 的 方法 仍然 是 画 出 由 点 (n,5, ),n =1,2,…,N 构成 的 折线 图 。 


| 取 充 分 大 的 NW， 观 察 调和 级 数 的 折线 图 。 你 觉得 它 发 散 的 速度 是 快 还 是 慢 ? 将 它 的 
图 形 与 y=x ,y=Vx 以 及 y=4/x 作 比较 ， 谁 的 发 散 速度 快 ? 


解 ， 取 n=30， 分 别 画 出 调和 级 数 的 折线 图 、 与 y=x,y=Vx 以 及 y=4/x 的 比较 图 如 图 
23-3。 


4 20 
3.5 15 
.3 
2.5 pre] 
5 
1.5 
5 10 1 20 25 30 5 WD 4 上 5 2 5 D0 
(a) (b) 
4 a 
3 3 
2 2 
1 1 
5 10 15 2 25 30 5 D0 5 2 5 鸭 


(©) (d) 
图 23-3 ”调和 级 数 的 折线 图 
(a) 调 和 级 数 的 折线 图 ， (b) 调 和 级 数 与 y=x 的 比较 ; 
(c) 调和 级 数 与 y= Vx 的 比较 ， (d) 调和 级 数 与 y=4/x 的 比较 。 
从 以 上 实验 结果 可 看 出 , 调和 级 数 发 散 的 速度 较 慢 。 但是, 它 到 底 以 什么 样 的 速度 发 散 到 
无 穷 ? 让 我 们 再 做 下 面 的 练习 。 
练习 5 对 充分 大 的 一 系列 n， 计 算 5,, -8 ， 你 能 否 猜 测 出 5,, -5, 当即 趋 于 无 穷 的 极限 ? 更 
一 般 地 ，5,， -8, 趋 于 无 穷 的 速度 是 什么 ? 反 过 来 ， 固 定 x， 让 kk 趋 于 无 究 ，5,, 趋 于 无 穷 的 
速度 是 什么 ? 你 能 否 由 此 得 出 5, 当 产 趋 于 无 穷 的 极限 阶 ? 
感觉 级 数 增长 速度 的 一 种 方法 是 定义 函数 J(n) ， 它 是 不 小 于 级 数 部 分 和 
ee pe 
1 2 3 n 
的 最 小 整数 。 例 如 J(1)=1,7(3)=2,7(4)=3。 


练习 6 对 n=1,2,…,N (CN 是 某 个 较 大 整数 )， 计 算 J(2m2) -J(G0D 。 你 能 作出 什么 猜测 ? 对 每 
个 mm， 设 Jo =yJOD+1， 则 产 /天 的 范围 是 什么 ? 
练习 7 假定 已 知 7(n)， 你 能 估计 J(2n) 吗 ? 特别 地 ，J(2n) > VCD 成 立 吗 ? 给 定 n， 你 能 找 
到 NN 作为 n 的 函数 ， 它 能 保证 J(N)= J(n)+1 吗 ? 
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练习 8 对 每 个 m=1,2,.…,30， 令 nn 是 使 得 J(n)=m 成 立 的 最 大 整数 ， 记 为 L(m)。 试 计算 比值 
L(m+ 了 D/L(m) 。 你 能 做 出 什么 猜测 ? 


23.3 ”自然 对 数 的 底 e 
23.3.1 e 的 由 来 


在 娄 人 中 我 们 和 ,数列 | (1+ 二】 是 半 调 者 加 有 有 上 办 的， 故 在 在 本 了, 记 其 


极限 为 ey 即 
e= lim [可 (23-7) 
n+ n 
称 e 为 自然 对 数 的 底 。 可 以 证 明 ， 当 取 实数 古 趋 于 无 久 大 时 ， 函 数 |!+ ] 的 可 要 也 存在 并 
且 也 等 于 e， 因此 
e= lim [5 (23-8) 
> 


nto 


e 最 早 是 由 数学 家 欧 拉 (Euler) 发 现 的 ， 它 始 于 对 数 函 数 的 微分 问题 ， 设 对 数 函 数 
f(x)=log。x， 则 其 导 函 数 为 


log,(x+Ax)—log, x 


f(x) = lim f(x+Ax)— f(x) ne 
Ax—0 Ax Ar 一 0 Ax 
1 二 
= lim log, [+ 全 =log, (Gad 
Ax—0 Xx Ar 一 0 x 
= 了 
x 


当 a =e 时 ，/'(x) 变 成 了 简单 的 式 子 二 ， 此 时 函数 /() =10g。 x ， 记 为 nx ， 称 其 为 自然 对 数 ， 
这 就 是 e 被 称 为 自然 对 数 的 底 的 含义 所 在 。 
先 矣 名 观察 当 n 趋 于 无 穷 大 时 ， 数 列 a, =(1+ 共 】 和 4, = (1+ 】 ”的 变化 趋势 : 

(1) 求 出 当 n=10”,m=1,2,…,6 时 a,,4, 的 值 并 观察 变化 趋势 。 

(2) 在 同一 坐标 系 中 画 出 下 面 三 个 函数 在 区 间 [L4] 上 的 图 像 

y=(1+110°) ,y=(1+1M10")” ，y=e 

观察 当 x 增 大 时 图 像 的 走向 。 ， 
解 :(1) 计算 出 a,, A, 的 值 如 表 23-2， 并 画 出 其 散 点 图 如 图 23-4。 
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图 23-4 a,，( 左 ) 、4 (〈 右 ) 的 变化 趋势 图 23-5 三 个 函数 图 像 的 比较 


练习 9 将 实验 5 中 的 作 图 区 间 换 成 [2,4] 或 [3,5] 或 [5,6]， 观 察 所 得 到 的 图 像 。 


通过 观察 可 以 看 到 ， 当 n 增 大 时 a, =(1+ 人】 递增 ，A = (1+ 芭 ) ”递减 。 随 着 m 的 无 穷 


增 大 ，a,,4, 无 限 接近 ， 并 趋 于 共同 的 极限 e=2.718 28… 。 
23.3.2 ”用 级 数 的 部 分 和 近似 e 


将 以 e 为 底 的 指数 函数 y=e” 展开 成 医 级 数 ， 有 


5 x? x 
e” 三 1 二 十 -一 十 十 一 十 … 
21! nl! 
可 以 证 明 该 级 数 的 收敛 区 间 为 -eo,+ee) 。 令 x=1， 得 
ES EE (23-9) 
2! n! Ek! 
记 
S$ si 
é tk! 


我 们 可 以 选择 适当 的 n， 通 过 计算 5 得 到 e 的 近似 值 。 
利用 (23-9) 式 计 算 e 的 近似 值 ， 精 确 到 小 数 点 后 面 10 位 ， 并 与 实验 5 的 结果 进行 


比较 。 
解 : 利用 〈23-9) 式 计算 e 的 近似 值 如 表 23-3。 
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表 23-3 e 的 近似 值 


2.71666667 0.00161516 
2.71805556 0.00022627 
2.71825397 0.00002786 
2.71827877 3.0586177-6 
2.71828153 3.0288585-7 
2.71828180 2.7312661-8 
2.71828183 2.2605523-9 
2.71828183 1.7287667-10 


2.71828183 . 1.2286233-11 
2.71828183 8.154874-13 
2.71828183 5.07711-14 
2.71828183 2.9763-15 
2.71828183 1.648-16 


2.71828183 8.7-18 
2.71828183 4.-19 
2.71828183 0.-20 


练习 10 (1) 计算 当 x=10”,n=1,2,3,4,5,6,7 时 ，X(x)=lg(l+x)/x 的 值 。 并 观察 当 x 趋 于 0 
时 A(x) 是 否 接近 于 某 一 个 极限 值 4 。 


和 就 是 常用 对 数 y=lgx 在 =1 处 的 导数 ， 它 不 是 一 个 简单 的 数 。 定 义 y= f(x)=4" lgx， 
则 f(x) 在 好 1 处 的 导数 为 m1. 而 f(x)=lgx/lg(10:)=log,x 是 以 a=10* 为 


底 的 对 数 。 
(2) 计算 a=10?。 


(3) 计算 当 x=10”,n=1,2,3,4,5,6,7 时 , L(x)=1n(1+x)/x 值 , 并 观察 当 x 趋 于 0 时 J(x) 是 
否 趋 于 某 一 个 极限 值 4 ? 上 的 值 是 多 少 ? 
23.3.3 ”积分 与 自然 对 数 
”对 正 实数 a, 研究 反比 例 函数 y= f(x) =1/x 的 图 像 与 x 轴 及 直线 x=1,x=a 所 围 成 的 面积 
S(a) ， 即 定 积分 "二 dx。 注意， 我 们 定义 直线 -1 为 计算 面积 的 基准 ， 从 这 条 直线 向 右 的 面 


积 为 正 ， 向 左 的 面积 为 负 。 也 即 : 当 a>l 时 5S(a)>0; 当 0<a<1l 时 S(a)<0; 而 当 a=1 时 
S(a)=0。 


以 a=2 的 情形 为 例 。 将 自 变 量 区 间 [1,2] 平 均 分 为 n 等 份 ， 每 份 长 度 为 Ln， 插入 的 分 点 
丸 = 二 1+k/n (1 二 kn-1)。 所 求 面积 5 (2) 相 应 地 被 分 成 n 份 , 其 中 第 份 是 直线 x=x_,x= 坟 之 
间 所 夹 的 部 分 ， 其 面积 记 为 5$, 。5, 的 上 边界 是 曲线 y=1/x 在 区 间 [x_1,xz] 上 的 一 段 ， 最 大 高 度 
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1 n .nn 1 xn 
为 1/x,_, =n/(nt+k-1)， 最 小 为 1/x =n/(n+k) 。 故 一 =—— > > 二 一 -= 
( )， 最 小 高 度 MoE 太守 n+k-l “ nnt+k 

1 
一 一 - 。 于 是 ， 
nt+k 是 

三 > a 

:Antk— ntk 


, ，0, 分 别称 为 “大 和 ”“ 小 和 ”而 面积 的 准确 值 5(2) 在 它们 之 间 。 当 n 递增 时 ， 世 , 递减 ， 
0, 递增 ， 当 一 时 二 者 趋 于 共同 的 极限 5(2)。 易 见 , -a, =1/2m ， 用 互 ，a, 来 作 S(2) 的 
近似 值 ， 误 差 小 于 1/2n。 而 它们 的 平均 值 (5, + ac,)/2 与 8(C2) 的 误差 则 应 当 更 小 。 事 实 上 ， 这 
个 平均 值 就 是 用 梯形 公式 求 出 的 5(2) 的 近似 值 。 

闫 大 时 对 n=10"(m=3,4,5,6), 计算 “大 和 ”Zz, 和 “小 和 ”6o, 及 它们 的 平均 值 (Z, +a,)/2， 
观察 它们 的 变化 趋势 。 得 出 8(2) 的 近似 值 。 再 用 求 数值 积分 的 语句 

NIntegrate[1/x,{x,1,2}]， 求 S (2)。 

解 : 分 别 计算 “大 和 ”Zz, 和 “小 和 ”a, 及 它们 的 平均 值 (5, +a,)/2 ， 并 与 数值 积分 的 结果 比 
较 ， 结 果 如 表 23-4。 


表 23-4 S(2) 的 计算 结果 


i 
| 


0.783333 0.0901862 0.716667 -0.0764805 0.7 0.00695282 
0.759524 0.0663766 0.634524 -0.0586234 0.697024 0.00387663 
0.745635 0.0524877 0.645635 -0.0475123 0.695635 0.00248774 


0.736544 0.0433968 0.653211 -0.0399365 0.694877 0.00173016 


0.730134 0.0369866 0.658705 -0.034442 0.694419 0.00127229 


0.725372 0.0322247 0.662872 -0.0302753 0.694122 0.00097467 
0.721695 0.0285482 0.66614 -0.0270074 0.693918 0.000770421 


0.718771 0.0256242 0.668771 -0.0243758 0.693771 0.000624223 


练习 11 定义 函数 SCD= | “df ， 并 面 出 这 个 函数 在 区 间 [0.1.5] 上 的 图 像 〔 也 可 以 换 成 别 的 区 


间 )。 观 察 图 像 的 形状 ， 它 像 是 什么 函数 ? 
练习 12 观察 出 练习 11 中 画 出 的 图 像 可 能 是 对 数 函数 的 图 像 。 现 在 来 求 这 个 对 数 的 底 已 ， 它 
应 满足 条 件 S(b)=1。 从 图 像 上 看 b 比 3 稍微 小 一 些 。 利 用 递 推 关系 式 


S(a)-1 
人 S’(a) 
由 根 的 近似 值 a 求 出 更 好 的 近似 值 w 。 这 里 S$'(a)=1/a 。 并 在 同一 坐标 系 中 作出 函数 S(x) 和 


Inx 的 图 像 。 
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当然 ， 由 不 定 积分 的 知识 ， 很 容易 知道 CD) = >df =Inx。 以 上 是 通过 数值 和 图 像 来 验 
证 这 一 结论 。 
23.4 欧 拉 (Euler ) 常数 Y 
23.4.1 了 的 由 来 


设 * 为 调和 级 数 福 二 的 前 = 项 和 ， 即 


. 1 1 1 
$5, 二 1]+ 一 二 一 十 … 十 一 
2 3 n 
记 a =s, 一 In(n+1)， 可 以 证 明 数 列 {a} 的 极限 存在 。 事实 上 ， 由 定 积分 的 知识 , 我 们 知道 ， 
1 1 1 1 pnttl erinfl 1 
a | -tk 


i=l i Xx 


1 


当 xe (pi+lD 时 ， 有 故 
i+]l x i 


. . 


人 1 1 
因此 ，0<a < =- 一 一 -- |=1- 二 <1。 又 
之 i i+l n 


i=l 


所 以 ， 序 列 {a,} 单调 有 界 ， 于 是 lima, 存 在 。 

另外 ， 我们 还 可 以 从 几何 图 形 上 较 直 观 地 认识 这 一 问题 如 图 23-6。 位 于 曲线 y= 上 广 
从 左 到 右前 个 曲 边 三 角形 面积 之 和 为 a, 。 由 于 这 些 三 角形 模 的 直角 边 长 度 都 为 1， 竖 的 直角 
边 长 度 之 和 不 超过 1， 故 可 将 它们 全 部 平移 到 同一 单位 正方 形 内 ,因此 它们 的 面积 和 不 超过 音 
位 正方 形 的 面积 1。 又 因为 每 个 小 曲 边 三 角形 的 面积 是 正 的 , 故 序列 {a,} 是 单调 的 。 于 是 {a,} 
单调 有 界 ， 故 lima, 存在。 


23-6” 欧 拉 〈Euler) 常数 的 几何 意义 
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设 Y=lima,， 即 y=lims, -n+D， 或 


y= (tt in (23-10) 
nam n 


上 式 中 的 y 称 为 欧 拉 《Euler) 常数 。 

凡 呈 四 将 坐标 为 (n,H(m))，(n =12…,100) 的 点 依次 连接 成 光滑 曲线 。 与 自然 对 数 的 曲线 
y=lnx(xef[l100]) 画 在 同一 个 坐标 系 中 。 

解 : 画 出 (n, 玉 (n)) 的 散 点 图 如 图 23-7(a)。 观 察 可 知 ， 当 n 很 大 时 同一 n 的 H(n) 与 In n 之 差 接 
近 于 常数 。 计 算出 y=AHQ00)-In100， 再 画 出 函数 y=Inx+7 的 图 像 ， 并 比较 (n,H(n)) 与 
y=Inx+7 的 图 像 ， 如 图 23-7(b)。 


NN WW a 
PN GG Dp 


(a) (b) 
图 23-7 (nn,H(n)) 与 y=Inx+7Y 的 图 形 

练习 13 为 了 研究 当 n 无 穷 增 大 时 C(n) = HH(n) 一 Inn 是 否 趋 于 一 个 常数 ， 将 坐标 为 (n, H(n) 
一 Inn), (1 委 z 委 100) 的 点 依次 连接 成 光滑 曲线 cl , 再 将 坐标 为 (n,H(n) 一 In(n+1)), (1 志 n 志 100) 
的 点 依次 连接 成 光滑 曲线 c2。 在 同一 坐标 系 中 画 出 曲线 c2，c2。 观 察 cl 递减 和 c2 递增 以 及 
二 者 相互 接近 的 现象 。 

计算 a=10”"(m=1,2,…6) 时 C(n)=H(n)-Inn 和 c(n)=(n) 一 In(n+) 有 ) 的 值 。 观 察 C(n) 递 
减 、c(n) 递增 、 二 者 趋 于 同一 极限 的 现象 。 并 求 出 这 个 极限 7 。 


显然 
cn)=H(n)-Inn+l)<C(n)= Hn)-Inn 


n 


当 n 一 oo Wt Co -em) =in (1+ 多 0， 故 C(n),c(n) 趋 于 同一 个 极限 y 。 


> ”选取 适当 的 n 计算 欧 拉 常数 7 的 近似 值 。 
解 : 利用 (23-10) 式 ， 选 取 n=1000 得 到 7r 的 近似 值 与 误差 范围 ， 其 部 分 数值 如 表 23-5 所 示 。 


表 23-5 7y 的 近似 值 
0.002 


50 0.56783 0.02 500 0.576217 . 

100 0.572257 ”0.01 750 0.57655 0.0013 

200 0.574726 0.005 1000 0.576716 0.001 
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0.582 |， 
0.581 、 


1 0 00 500 500 1000 
0.579 Wm 


0.578 SR 
图 23-8 ” 欧 拉 常数 > 的 散 点 图 
23.5 ”值得 进一步 研究 的 问题 
问题 1 设 4 = au + ,a =1， 研 究 数 列 ,的 极限 行为 。 


(1) 在 平面 上 画 出 顺 次 连接 点 (n,a,),n=1,2,…,2000 的 折线 图 。 
(2) 根据 上 述 图 形 ， 你 认为 数列 a, 的 极限 是 什么 ? 
(3) 用 一 恰当 的 函数 y= 了 (x) 去 拟 合 上 述 图 形 。 
(4) 猜测 数列 a, 的 极限 阶 ， 并 证 明 你 的 结论 。 
问题 2 研究 数列 a,=sinn 的 极限 状态 的 规律。 


(1) 在 平面 上 画 出 点 列 (n,a,),n=1,2,…,N (如 N =5000 )。 
(2) 根据 上 述 图 形 ， 你 认为 数列 a 的 极限 是 否 存在 ? 
(3) 你 能 从 上 述 图 形 中 观察 到 点 列 的 分 布 有 什么 规律 ? 能 否 证 明 所 观察 到 的 规律 。 
(4) 任 取 区 间 [a,b]c[-1, 了 ， 夯 出 数列 中 落 在 区 间 [a,5] 中 的 点 。 将 区 间 [a,b] 放 大 并 取 不 
同 的 N， 观 察 落 在 区 间 [a, b] 中 的 点 集 有 何 变化 。 
问题 3 考察 由 如 下 关系 确定 的 正 整 数 数列 ， 
3x +1， 如 果 x 为 奇数 


有 一 笃 ，。 如 果 x. 为 偶数 


任 取 一 正 整 数 作为 初 值 坟 ， 计 算数 列 ， 并 在 平面 坐标 系 中 用 折线 连接 (n,a,),n=0,1.…,N 。 
取 不 同 的 初 值 凡 ， 观 察 所 得 的 结果 。 你 能 发 现 数列 x 有 什么 规律 吗 ? 
问题 4 研究 法 里 (Farey ) 数列 的 规律 与 项 数 。 给 定 整 数 n, 将 分 母 不 超过 的 所 有 真 分 数 (以 
最 简 分 数 形式 出 现 ) 从 小 到 大 排列 ， 所 得 到 的 数列 称 为 n 阶 法 里 (Farey) 数列 。 例 如，6 阶 法 
里 数列 是 二 ,汪汪 3, 二。 对 于 阶 法 里 数列 ， 我 们 要 间 它 有 多 少 项 ? 相 邻 各 项 之 间 
有 何 联系 ? 为 研究 这 些 问题 ， 请 做 以 下 实验 。 

(1) 任 取 一 法 里 (Farey) 数列 ， 考 察 任意 相 邻 三 项 之 间 的 关系 。 将 首尾 两 项 的 分 子 分 母 分 
别 相 加 ， 所 得 分 数 是 什么 ? 你 能 因此 做 出 什么 样 的 猜想 ? 你 能 否 证 明 你 的 猜想 ? 
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(2) 考察 法 里 数列 相 邻 两 项 的 差 ， 你 能 得 到 什么 结论 ?你 能 否 证 明 你 的 结论 ? 
(3) 将 法 里 的 每 一 项 减 去 ， 所 得 到 的 新 数列 有 什么 性 质 ? 


(4) 用 a 表示 nn 阶 法 里 数列 FF 的 项 数 。 观 察 n 阶 法 里 数列 和 n+1 阶 法 里 数列 的 关系 。 由 
此 ，a, 与 4,,, 有 何 关 系 ? 
(5) 将 点 列 (n,a,),n=0,1…,N〔 如 入 =1000) 画 在 平面 坐标 系 上 。 猜 测 a, 与 的 关系 。 


问题 5 考察 a=2 时 ， 级 数 〈23-10) 的 一 些 结果 。 

(1) 对 充分 大 的 W， 计 算 级 数 的 前 N 项 和 ， 并 计算 它 与 的 比值 。 你 能 否 据 此 猜测 级 数 
(23-10) 的 和 ? 

(2) 设 p=2,p, =3… 是 按 顺序 排列 的 素数 。 考 察 无 穷 乘 积 


[上 (23-11) 
pi p p 


试 计算 该 无 穷 乘 积 的 近似 值 。 这 个 值 与 (23-2》 中 级 数 的 和 有 何 关 系 ? 由 此 ， 你 能 做 出 什么 样 
的 猜测 ?你 能 否 证 明 你 的 猜测 ? 

” “3) 你 能 否 猜 测 ， 对 一 般 的 ce>1， 无 穷 级 数 (23-10) 的 和 与 哪个 无 穷 乘积 相等 ? 

问题 6 研究 下 面 的 级 数 6+ S++ 二 + 他 +…， 你 能 得 出 什么 结论 ? 


间 题 7 利用 欧 拉 常数 进一步 研究 练习 6、 练习 7、 练习 8 中 的 问题 。 


附 ”Mathematica 程序 
1. 实验 1 的 程序 
ftn_] := ffn - 1] + ffn - 2}]; f{0] = 1; ff1] = 1;fib = Table[f{i], {i, 1, 20}]; 
g1 = ListPlot[fib, PlotStyle -> PointSize[0.02]]; 
8g2 = ListPiot[fib, PlotJoined -> True]j;Show[gl, g2]; 
2. 实验 2 的 程序 
fln_1:=ffn -1]+ ffn -2}; fT0] = 1; ff1] = 1;fib = Table[ftil, {i, 1, 20};lgf = Log[fib]; 
g1 = ListPlot[lgf, PlotStyle -> PointSize[0.02]]; 
g2 = ListPlot[lgf, PlotJoined -> True];Showlgl, g2]; 
3. 实验 3 的 程序 
fibplay[n_Integer] := Module[l{t = {}, i}, 
For[i = 1, i <= n, it+,AppendTo[b Mod[ 斐 波 那 契 [], n]]]; 
ListPlay[b PlayRange -> {0, nj, SampleRate -> 5]] 
4. 实验 4 的 程序 
Clear[n]; s[n_] := NSum[1/i, {i, n}]; n = 30;sn = Table[s[il, {i, 1, n}]; 
g1 = ListPlot[sn, PlotStyle -> PointSize[0.02], DisplayFunction -> Identity}; 
g2 = ListPlot[sn, PlotJoined -> True, DisplayFunction -> Identity]; 
g3 = Show[gl, g2, DisplayFunction -> $DisplayFunection]; 
fi[x_] := x; f2[x_] := Sqrt[x]; f3[x_] := x^(1/4); 
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gilL= Plot[f1[x], {x, 0, 20}, PlotStyle -> RGBColor[l, 0, 0], 

DisplayFunction -> Identity]; 
gf2 = Plot[f2[x], {x, 0, 20}, PlotStyle -> RGBColor[0, 1, 0], 

DisplayFunction -> Identity]; 
gf3 = Plot[f3[x], {x, 0, 20}, PlotStyle -> RGBColor[0, 0, 11, 

DisplayFunction -> Identity]; 
Show[g3, gfl, DisplayFunction -> $DisplayFunction]; 
Show[g3, gf2, DisplayFunction -> $DisplayFfunection]; 
Show[g3, gf3, DisplayFunction -> $DisplayFunction|; 
5. 实验 5 的 程序 
Clear[a, A, n, tl,t2,b kJj; m = $5; aln_]= (1 + LU/n)’n; Aln_ ]=(1+lnAn+T; 
t= Table[{k, 10^k, N[a[10^k]], N[A[10^k]]}, {k, 0, m)}]}; 
t1 = Table[{k, N[a[10^k]]}, {k, 0, m}];t2 = Tablel{k, N[A[10^k]]}, {k, 0, m}]; 
TableForm[t, TableHeadings -> {None, {"m"', "n=10^m", "afn}", "A[n)"'}}] 
ListPlot[t1, PlotStyle -> PointSize[0.02]];ListPlot[t2, PlotStyle -> PointSize[0.02]]; 
y1[x_ ] = (1 + V10^x)^(10^x); y2[x_] = (1 + V10^x)^(10^x + 1);y= E; 
Plot[{y, y1[x], y2[x]}, {x, 0, 4}, 

PlotStyle -> {RGBColor[1, 0, 0], RGBColor[0, 1, 0], RGBColor[0, 0, 1]}]; 
6. 实验 6 的 程序 
s[n_] := 1 + N[Sum[U/k!, {k, 1, n}], 20]; 
t= Table[l{i, N[s[il, 20], N[Abs[E - s[i]], 20]}, {i, $, 20}]; 
TableFormit, TableHeadings -> {None, { "nm"，"s[n]"…, Error}}] 
7. 实验 7 的 程序 
m= 10; ssum[n ] := NSum[l/ + k -1),{k, 1,n}l; 
lsum[n_] := NSum[La + k), {k, 1, n}l;app = NIntegrate[U/x, {x, 1, 2}]; 
t= Table[{10^k, N[ssum[kl, 201, N[lsum[k], 20], 
N[(ssum[k] + lsum[k])/2, 20]), {k, 3, m, 1}]; 
tl = Table[{10^Kk, N[ssum[k], 20], N[ssum[k] - app, 201}, {k, 3, m, 1}]; 
t2 = Table[{10^k, NUsum[k], 20], NUlsum[k] - app, 20]}, {k, 3, m, 1}]; 3 = 
Table[{10^k, N[(ssum[k] + lsum[k])/2, 20], 

N[(ssum[k] + lsum[k])/2 - app, 201}, {k, 3, my 1}]; 
TableForm[t TableHeadings -> {None, {"'n"', "ssum'" "lsum", "approximation'’}}] 
TableForm[tl TableHeadings -> {None, {"n", "ssum", "error"}}] 
TableForm[t2, TableHeadings -> {None, {"'n'', "lsum"', "error"}}] 
TableForm[t3, TableHeadings -> {None, {"'n'', "approximation"', "error"'}}] 
8. 实验 8 的 程序 
H[n_] := NSum[1/k, {k, 1, n}];t = Table[{n, H[n}}, {n, 1, 100}; 
pl = ListPlot[t, PlotStyle -> PointSize[0.015], DisplayFunction -> Identity]; 
p2 = ListPlot[t, PlotJoined -> True, DisplayFunction -> Identity]; 
picl = Show[p1,p2, DisplayFunction -> $DisplayFunction]; 
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pic2 = Plot[Log[x], {x, 1, 100}, PlotStyle -> RGBColor[0, 0, 1], 
DisplayFunction -> Identity]; 
Show[picl, pic2, DisplayFunction -> $DisplayFunction]; 


tl = Table[{n, H[n], NiLog[n]], N[Abs[Log[n] - Hfn]]]}, {n, 1, 101, 10}]; 
TableFform[tl, TableHeadings -> {None, {"'n", "HIn]" "Log[n]"', Error}}] 
c= H[100] - Log[100] 
pic3 = Plot[Log[x] + ¢, {x, 1, 100}, PlotStyle -> RGBColor[], 0, 0], 
DisplayFunction -> Identity]; | 

Show[picl, pic2, pic3, DisplayFunction -> $DisplayFunction]; 
9. 实验 9 的 程序 
Clear[c, n]; HIn_] := NI[Sum[LVk, {k, 1, n}], 20]; c[n_] := HIn] - Log[n!l; 
t= Table[{n, N[c[n], 20]}, {n, 100, 1000, 50}]; 
TableForm[t, TableHeadings -> {None, {"'n'', "c[n]''}}] 
pl = ListPlot[t, PlotStyle -> PointSize[0.02], DisplayFunction -> Identity]; 
p2 = ListPlot[t, PlotJoined -> True, DisplayFunction -> Identity]; 
Show[pl, p2, DisplayFunction -> $DisplayFunction]; 

c[10000] 
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实验 二 十 四 非 线 性 方程 近似 解 


很 多 科学 计算 问题 都 遇 到 非 线性 方程 的 求解 问题 。 设 非 线性 方程 
f(x)=0 (24-1) 
方程 (24-1〉 的 解 x 称 为 方程 的 根 式 函 数 f(x) 的 零点 ， 若 f(x) 可 表示 为 
f(x)=(x—x)" g(x) 

其 中 m 为 大 于 1 的 整数 ， 且 g(x )#0， 称 为 x 为 方程 (24-1) 的 m 重 根 ， 或 函数 f(x) 的 m 
重 零点 。 若 f(x) 为 n 次 多 项 式 ， 则 称 了 (x)=0 为 n 次 代数 方程 ， 若 了 (x) 为 超越 函数 ， 则 称 f(x)=0 
为 超越 方程 。 从 理论 上 可 以 证 明 ，5 次 以 上 代数 方程 没有 一 般 的 公式 解法 ，3 次 、4 次 代数 方 
程 虽 然 有 解 的 公式 ， 但 应 用 起 来 十 分 繁琐 。 对 于 一 般 的 超越 方程 ， 更 无 求 根 公式 。 因 此 ， 研 究 
非 线 性 方程 的 数值 解法 是 很 必要 的 。 

本 实验 主要 介绍 几 种 求 近似 根 的 常用 方法 。 


24.1 根 的 隔离 与 二 分 法 
方程 求 根 问题 一 般 分 两 步 进行 。 第 一 步 根 的 隔离 ， 确 定 根 所 在 的 区 间 {a, 5]， 使 在 [a, 5] 内 


只 有 方程 的 一 个 根 ， 这 个 步骤 叫 根 的 隔离 ， 这 样 的 区 间 叫 隔 根 区 间 。 第 二 步 近似 根 的 精确 化 : 
已 知 根 的 一 个 近似 值 后 ， 用 某 种 方法 对 其 进行 加 工 ， 使 之 满足 给 定 的 精度 要 求 。 
24.1.1 求 隔 根 区 间 的 一 般 方法 

由 高 等 数学 可 知 , 若 f(x) 在 [a, 5]J 上 连续 , 且 f(a). f(b5)<0, 则 了 (x)=0 在 [a,5] 内 必 有 根 ， 
车 f(x) 在 [a, b] 上 严格 单调 ， 则 f(x) =0 在 [a, 四 ] 内 只 有 一 个 根 。 据 此 可 得 求 隔 根 区 间 的 两 种 方 
法 。 

1. 作 图 法 

画 出 y=f (x) 的 草图 , 由 f(x) 与 模 轴 交点 的 大 概 位 置 来 确定 隔 根 区 间 , 或 者 利用 导 函 数 f(x) 
的 正 、 负 与 函数 (x) 的 单调 性 的 关系 确定 根 的 大 概 位 置 。 车 f(x) 比较 复杂 ， 还 可 将 方程 (24-1) 
化 为 一 个 等 价 方程 p(x)=wy(x) , 则 曲线 y= g(x) 与 y=W(x) 之 交点 A(x,y ) 的 横 坐 标 x' 即 为 原 
方程 之 根 ， 据 此 也 可 通过 作 图 求 得 x 的 隔 根 区 间 。 

2. 逐步 搜索 法 

从 区 间 [a, 9] 的 左 端点 a 出 发 ， 按 选 定 的 步 长 产 一 步 步 向 右 搜 索 ， 若 

Fa+ 闪 .Fa+(i+DID<0 (j=0,1,2,…) 

则 区 间 [a+ 胃 ,a+(j+]D) 有 内 必 有 根 。 搜 索 过 程 也 可 从 b 开始 ， 这 时 应 取 步 长 h<0。 


24.1.2 ”二 分 法 
在 方程 求 近似 根 的 方法 中 , 最 直观 、 最 简单 的 方法 就 是 二 分 法 ,在 实验 三 中 我 们 已 经 接触 
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过 ， 下 面 再 作 系统 的 介绍 。 
设 函 数 J 09 在 [c, 5b] 上 连续 严格 单调 ， 且 f(a). f(b)<0。 为 了 确定 起 见 ， 不 妨 设 f(a) <0， 
f(b) >0， 则 方程 (在 [a, 切 区 间 内 一 定 只 有 一 个 根 。 二 分 法 的 基本 思想 是 ， 用 对 分 区 间 的 
方法 ， 通 过 判别 函数 f(x) 的 符号 ， 逐 步 将 有 根 区 间 缩小 ， 使 在 足够 小 的 区 间 内 ， 方 程 有 且 仅 
有 一 个 根 。 具体 步 是 
用 区 间 中 点 了 (a+ 忆 ) 平分 [a 为 两 个 区 间 ， 计 算 中 点 的 函数 值 有 5+) ,根据 (2) 的 
全 
Ce 


7 


Q) | fC 宇 n7， 由 f( 


) 的 符号 形成 新 的 有 根 区 间 [a,b,] 。 


a a 2 


当 f( 一 一)<0 时 ,， 取 a = ,b=b; 当 f( 2 ， 这 时 有 


)>0 时 ， 取 @a =a 思 = 


1 
[a,bl>[a,blHb -a S30) 


对 此 新 的 有 根 区 间 [a,b] 又 可 采用 同一 步骤 ， 仅 当 出 现 第 一 种 情况 时 ， 计 算 停止 。 
这 样 ， 得 到 一 系列 有 根 区 间 
[a,b]> [a,b] [a,b,] oo [a,b] 
ER 半 ， 最 后 一 个 区 间 的 长 度 为 
b, —a, -去 @- a) | (24-2) 


显然 有 f(a,): f(b.)<0。 当 kk 一 % 时 ， 二 人 -可 一 0， 如 取 最 后 一 个 区 间 的 中 点 六 作为 
f(x)=0 根 的 近似 值 ， 则 
= >a, +b,) (24-3) 
且 有 误差 估计 式 : 
ax|< 6- <e (24-4) 


mm~ 


AL 
用 二 分 法 求 方程 fCo = 妇 -x-1=0 的 实 根 ， 要 求 误差 不 超过 0.005。 


解 : 由 于 /0)=-1<0,f(3)=>0， 且 f (x)=3x 一 1 在 [1,1.5] 上 恒 大 于 0， 所 以 方程 在 此 区 间 
内 仅 有 一 个 根 。 由 误差 估计 式 〈24-4?， 即 


<0.005 


(1.5—])= 


k+l pa 


Le 
-x |<z 


Po ee a 
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之 近似 根 。 
表 24-1 二 分 法 计算 过 程 


1 (ao)<0, f(b,)>0 


2. 根据 精度 要 求 , x, 取 到 小 数 点 后 四 位 即 
可 


二 分 法 的 优点 是 计算 简单 、 方 法 可 靠 ,只 要 求 f(%) 连 续 。 因 此 对 函数 性 质 要 求 较 低 。 它 的 
缺点 是 不 能 求偶 数 重 根 ， 也 不 能 求 复 根 ， 收敛 速 度 与 以 > 为 比值 的 等 比 级 数 相同 ， 不 算 太 快 。 
因此 , 一 般 在 求 方程 近似 的 根 时 , 不 大 单独 使 用 , 常用 来 为 其 它 方法 求 方程 近似 根 时 提供 初 值 。 
练习 1 用 二 分 法 求 方程 FCO = 妇 - 妇 -2xz+1=0, 在 区 间 [0,1] 内 的 一 个 实 根 ,， 要求 有 三 位 有 效 


数字 。 
24.2 迭代 法 
和 迭代 法 是 一 类 典型 方法 ,不 仅 用 于 方程 求 根 ， 而 且 在 方程 组 求解 、 矩 阵 求 特征 值 等 方面 都 
需要 使 用 。 


迭代 法 的 基本 思想 是 一 种 逐次 逼近 的 方法 ,首先 给 定 一 个 粗糙 的 初始 值 ， 然后 用 同一 个 迭 
代 公式 ， 反 复 修正 这 个 初 值 ， 直 到 满足 预先 给 定 的 精度 要 求 为 目 。 


24.2.1 ”简单 迭代 法 
设 有 方程 f(x)=0， 将 它 改 写成 等 价 形式 x= p(x) ， 并 作出 
Xn = PK), k=0,1,2,.… (24-5) 
在 根 的 邻近 任 取 初 始 值 m ,由 公式 (24-5) 可 算得 为 ， 继 而 又 算出 加 等 等 , 我 们 将 式 (24-5) 
称 为 迭代 公式 ，{x} 称 为 迭代 序列 ，gp(x) 称 为 迭代 函数 。 若 p(x) 是 连续 的 ， Hlim%=x. 
对 公式 〈24-5) 两 端 同 时 取 极限 ， 则 得 
aan -90%)=p(m 
即 
x" =09(x) (24-6) 
这 表明 x' 是 原 方程 的 根 ， 当 办 代 序列 {x,} 有 极限 时 ， 我 们 称 此 序列 为 收敛 的 ， 或 称 达 代 
公式 (24-5) 收敛 。 由 于 在 实际 计算 时 ， 不 可 能 作 无 限 次 迭代 运算 ， 所 以 迭代 到 一 定 程度 ， 就 
取 六 作为 原 方程 根 的 近似 值 。 这 种 求 方程 近似 根 的 方法 称 为 迭代 法 。 
我 们 也 可 将 迭代 函数 g(x) 视 为 一 种 变换 ， 式 〈24-5) 表示 了 它 将 点 六 变换 成 点 六 ， 式 
《24-6) 则 表示 为 将 点 x 仍然 变换 到 它 的 自身 。 因 此 ， 人 们 也 常 将 方程 x=9(x9 的 根 x' 称 为 变 
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换 g(x) 下 的 不 动 点 。 

迭代 法 具有 明确 的 几何 意义 : 求 方程 x= q(x) 的 根 ， 也 即 求 9(x) 的 不 动 点 ， 在 几何 上 是 
求 直 线 y=x 与 曲线 y=9(x) 交点 的 横 坐 标 x*， 如 图 24-1 所 示 。 从 点 p,(%,9(%)) 出 发 引 平行 
于 x 轴 的 直线 交 直 线 y=x 于 一 点 ， 过 该 点 再 作 平 行 于 y 轴 的 直线 ， 它 与 曲线 y= g(x) 相交 于 
点 p,， 显 见 点 p, 的 横 坐 标 为 x = p(x)， 这 样 继续 做 下 去 ， 在 曲线 y= p(x) 上 得 到 一 系列 的 点 
D1, Py,…， 其 横 众 标 分 别 等 于 按 公 式 t,, = 9(%) 求 得 的 近似 值 六 ,如 图 24-1 (a)， {Xx} 逐 
步 允 近 于 9g(x) 的 不 动 点 x ; 图 24-1 (b)，{ 人 入]} 不 收敛 。 


图 24-1 迭代 法 的 几何 意义 
识 沪 江 ”用 过 代 法 求 方程 x*+2x -x-3=0 在 区 间 [1,1.2] 内 的 实 根 。 
解 : 对 方程 进行 如 下 三 种 变形 : 


x 0 
Np 
X=9(X) =X +2x: —3 
分 别 按 以 上 三 种 形式 建立 迭代 格式 ， 并 取 % =1 进 行 迭 代 计算 ， 结 果 如 下 : 
Xen = PX) xo =X =1.124123 
Kn = ph) N= =1.124123 
Xn=P(h), =06,x =8.495307x10 


准确 根 x* =1.124123029 ， 可 见 迭 代 格 式 不 同 ， 收 敛 情 况 也 不 同 。 第 二 种 格式 比 第 一 种 格式 收 
敛 快 得 多 ， 而 第 三 种 格式 不 收敛 。 


练习 2 用 迁 代 法 求 方程 -2x-3=0 在 区 间 [2,4] 内 的 实 根 。 
由 实验 2 知 , 使 用 迭代 法 必须 解决 两 个 问题 ; 一 是 迭代 格式 应 该 满足 什么 条 件 才能 保证 收 
敛 ， 二 是 如 何 判别 迭代 收敛 的 速度 ， 建 立 收敛 快 的 迭代 格式 。 


24.2.2” 收 伍 条 件 与 误差 估计 
下 面 不 加 证 明 地 引入 以 下 的 收敛 条 件 。 
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定理 1 设 V'(xz) 在 fc 如 上 存在 ， 且 满足 条 件 : 

(1) 当 xe[a,b] 时 ,p(x)e [a,bl。 

(2) 存在 正 数 L<1， 使 对 任意 的 xe [a,b],|p(x?)| 志 L<1。 

则 (1) 方 程 x= p(x) 在 [a,b] 上 有 唯一 根 x*。 

(2) 对 任意 迭代 初 值 %& [a,b] ， 和 迭代 序列 和 =) =012…) 收 你 于 z。 

此 定理 在 理论 上 十 分 重要 ， 但 是 条 件 (1) 却 不 容易 判别 。 如 果 仅 在 根 的 邻 域 中 考察 迭代 格 
式 ， 则 下 述 定理 可 避免 条 件 (1) 的 判别 。 


定理 2 若 在 方程 x+=p(x) 之 根 x 的 菜 邻 域 R={ 邓 x 6} 内 9 (x) 存在 ， 且 存在 正常 数 
L<1, 使 
lp Wi<l, vreR (24-7) 


则 任 取 加 eR, 迭代 格式 Xr+l = p(X) 均 收 敛 于 x ， 且 有 下 列 误差 估计 式 ， 


x -|< ra -| (24-8) 
rr 
[x 一 | < rab 一 妇 | (24-9) 
反之 ， 若 在 根 关 的 邻 域 尺 内 有 ， 
Ip’(x)| 1 (24-10) 


则 和 迭代 必 发 散 。 

本 定理 给 出 了 和 迭代 格式 在 根 x' 邻近 是 否 收敛 的 判定 条 件 。 从 图 24-2 中 可 以 直观 地 看 到 条 
件 式 〈24-7)、(24-10) 对 收敛 性 的 影响 。 此 外 ， 定 理 中 十 分 强调 ， 当 条 件 式 〈24-7) 成 立时 ， 
迭代 初 值 为 应 取 在 根 闻 的 邻 域 尺 中 ， 如 果 对 任意 给 定 的 区 ， 和 迭代 格式 均 收 敛 ， 则 称 此 格式 具 
有 全 局 收敛 性 ， 但 这 样 的 格式 是 极其 稀少 的 。 如 果 对 根 关 的 某 邻 域内 的 任 一 点 如， 和 迭代 格式 


均 收 敛 ， 则 称 此 格式 具有 局 部 收敛 性 。 本 定理 给 出 的 就 是 局 部 收敛 条 件 。 


0 WX Xo 


(a) 


图 24-2 迁 代 法 的 收敛 条 件 
(ig(I<L<1; ©) Ii9(Wb1 ' 
定理 ”中 给 出 的 两 个 误差 估计 式 (24-8)、(24-9) 是 很 有 意义 的 ， 由 式 (24-9) 可 知 ， 条 


件 式 (24-7) 中 的 工 越 小 ， 和 迭代 过 程 收敛 越 快 ， 若 L<1， 但 L=1， 则 收敛 很 慢 ， 此 种 格式 不 
宜 采 用 。 
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由 式 〈24-8) 可 知 ， 若 t， -六 1<e ， 则 近似 解 x, 有 如 下 误差 估计 


L 
Ix -le 
l=L : 


因此 ， 在 正常 收敛 情况 下 ， 即 工 不 十 分 接近 于 1 时 ， 可 用 1x, ~x_ Ke 控制 迭代 结束 。 这 种 用 
前 后 两 次 迭代 结果 估计 误差 的 方法 称 为 事后 误差 估计 。 实际 应 用 中 , 控制 迭代 结束 的 条 件 也 常 
取 为 E<e 。 其 中 : 
[x Kl 当 Ix Isl 
E=1x, — xX 


| 
， 当 lx >1 
ixl 


24.2.3 ”迭代 过 程 的 收敛 速度 
在 建立 一 般 和 迭代 公式 时 ,为 了 能 科学 地 刻画 迭代 收 剑 的 快慢 ,应 考察 欠 代 误差 下 降 的 速度 。 
令 e, = 一 xX*， 若 


2 一 ec (一 ,常数 cz0) 
ex 


则 称 迁 代 格式 zs =p(x) 是 p 阶 收敛 的 。 特别 地 , p=1 时 称 为 线性 收敛, p=2 时 称 为 平方 收敛。 
p>1 时 称 为 超 线 性 收敛 。 显 然 ， 收 敛 阶 p 越 大 ， 收 敛 越 快 。 于 是 有 ， 
定理 3 设 x 为 x=9(%) 之 根 在 x 的 邻 域内 g(x) 有 连续 的 p 阶 导数 (p 之 1)， 那 么 ， 

(1) 车 0d9'(x')Ik1， 则 迁 代 过 程 在 x 的 邻近 为 线性 收敛 ，; 

(2) 若 g 《x)=9"(x)=…=9”?(x )=0,9? (x )z0，, 则 达 代 过 程 在 x 的 邻近 为 p 阶 收 伍 。 


24.2.4” 先 代 公式 的 加 速 


对 于 方程 
X=09(7x) (24-11) 
假定 g(x) 在 根 x 的 邻近 改变 不 大 , 其 估计 值 为 1, 且 忆 KK1 。 今 将 方程 (24-11) 两 边 同 加 上 4x( 其 
中 为 待定 常数 ， 且 14:# 关 -1)， 再 除 以 1+4 ， 可 化 得 方程 (24-11) 的 同 解 方程 ， 
x=9 (加 (24-12) 
其 中 p(x) = [p00+ Xx]。 根据 上 面 关 于 迭代 法 收敛 性 的 讨论 , 如 果 19%x)1 在 根 x 的 邻近 比 
ILI 还 要 小 ， 那 么 由 同 解 方程 (24-12) 定 出 的 迭代 公式 就 会 比方 程 (24-11) 定 出 的 要 收 全 得 快 。 由 
此 ， 我 们 只 要 从 
IORT (x) + AKLI (24-13) 
中 定 出 和 即 可 。 
实际 上 ， 当 我 们 选取 4= -L 时 ， 它 显然 可 以 使 19 "(x)1 相 当 接 近 于 零 ， 从 而 使 式 (24-13) 
成 立 。 将 和 = 一 LL 代入 方程 (24-12) 后 ， 由 此 即 可 得 在 x 邻近 的 迭代 加 速 公式 为 : 
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1 
| 三 179) 到 ZL ]， k = 0,1, 2… (24-14) 


求 方程 x=e“* 在 x=0.5 邻 近 的 一 个 根 。 
解 : 在 x=0.5 邻近 ，0 (xz) = -e“ 近 似 等 于 -0.6， 故 它 的 迭代 加 速 公式 是 


1 ，-a 
及 ee + +0.6x,) 


运用 这 个 迭代 加 速 公式 的 计算 结果 如 表 24-2。 
表 24-2 迭代 加 速 公 式 的 计算 结果 


0.56658 
0.56713 


0.56714 


练习 3 试验 f(x)=cosx， 面 出 y=x 和 y=cosx 的 草图 。 它 们 相交 吗 ? 如 果 相 交 ， 相 交 处 x 
的 值 就 是 cosx=x 的 一 个 解 ， 选 择 某 些 初始 值 a， 并 和 迭代 太 观 察 它 。 

练习 4 关于 Co =sinx 如何? 画 y=x 和 y=sinx 的 草图 你 正在 找 哪 个 解 ? 如 果 这 时 你 进 
行 迭代 将 发 生 什么 ? 如 果 f(x) =sin2x 又 如 何 ? 

练习 5 找 出 用 和 迭代 法 可 能 找 出 的 方程 如 -2x+1=0 尽 可 能 多 的 解 ,解释 对 每 个 求解 过 程 迭 代 
成 功 或 失败 的 原因 。 

练习 6 如 果 a 是 一 个 正常 数 ( 如 a=2)， 你 可 以 用 迭代 函数 f(x)=x +x-a 求 解 方 程 
8(O)= 刀 --a=0 试 一 下 。 

练习 7 指出 函数 /CD = (z+ <)12 的 不 动 点 是 方程 妈 ~a=0 的 解 ， 用 选 代 法 确定 它 的 不 动 点 
行 吗 ? 

练习 8 试用 f(x)=2cosx， 画 出 草图 并 确定 2cosx = 的 解 ， 迭 代 时 将 发 生 什么 ? 

练习 9 求解 2cosx=x 时 ， 你 还 可 以 选择 CD = 了 (x+ 2cos 习 。 这 个 选择 更 加 有 效 吗 ? 

练习 10 ” 找 出 一 个 4， 使 得 无 论 取 什 么 初始 值 选 代 都 将 收敛 到 f(x) = 2x -1 的 不 动 点 。 指 出 有 
一 个 1 的 最 佳 选择 ， 它 给 出 最 快 的 收敛 性 。 

练习 11 对 于 有 多 个 不 动 点 的 非 线性 函数 ， 好 的 4 的 选择 在 不 动 点 与 不 动 点 之 间 是 变化 的 ， 
对 于 练习 5 中 的 情形 ， 对 以 前 迭代 失败 的 每 个 不 动 点 找到 好 的 4 值 。 

练习 12 ”利用 改进 的 迭代 公式 求解 方程 8(D)= 妆 -3=0， 即 此 时 六 xz) = 好 +x-3 这 个 迭代 过 
程 的 收敛 性 如 何 ? 和 迭代 得 到 的 解 如 何 依赖 于 初 值 允 的 选择 ? 


24.3 ”牛顿 迭代 法 
对 于 给 定 的 方程 (x) = 0 ， 如 何 构造 迭代 格式 具有 很 大 的 灵活 性 。 首 先 要 把 它 写成 容易 迁 
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代 的 等 价 形式 x= 9(D 。 和 迭代 函数 gp(z) 构造 得 好 坏 ， 不 仅 影响 收敛 速度 ， 而 且 有 可 能 使 选 代 序 
列 发 散 。 怎 样 选择 一 个 迭代 函数 ， 才 能 确保 迭代 序列 一 定 收敛 呢 ? 


24.3.1 牛顿 法 


构造 迭代 秀 数 的 一 条 重要 途径 是 用 近似 方程 来 代 奉 原 方程 去 求 根 。 因 此 ， 非 线性 方程 
f(x) =0 如 果 能 用 线性 方程 来 近似 地 代替 ， 那 么 求 近似 根 问题 就 很 容易 解决 ， 而 且 十 分 方便 。 
牛顿 法 就 是 把 非 线性 方程 线性 化 的 一 种 方法 。 

设 坟 是 方程 f(x)=30 的 一 个 近似 根 ， 将 f(x) 在 x 处 作 泰 勒 展开 


f=10)+ 7 00+ C&C) 村 (24-15) 


式 中 避 介 于 x 与 之 间 。 若 取 式 (24-15) 0 并 称 此 为 (x) 的 线性 
化 ， 则 可 得 近似 的 线性 方程 


fm)+F XNx—XK)=0 
设 f(%)z0， 我 们 取 此 近似 方程 的 根 作为 方程 fFCzo =0 新 的 近似 根 ， 并 记 它 为 xs 。 从 而 
得 到 ， 
tl = A (24-16) 


式 (24-16) 称 为 求 f(x)=0 根 的 牛顿 迭代 公式 。 现 在 来 考察 牛顿 法 是 否 收 敛 。 

由 式 〈24-16) 可 知 ， 和 牛顿 法 的 迭代 函数 是 

0 
2 10 六 .jn 66 
. [fF OF -F000) ff 
OT FP FP 

车 f(x*)z0， 而 f(x*)=0， 则 在 根 x 附近 9g'(x*) 接近 于 0， 因 此 迭代 格式 是 局 部 收敛 的 ， 而 
且 和 牛顿 法 在 根 的 附近 收敛 很 快 。 又 由 于 是 局 部 收敛 ， 因 而 只 能 在 根 的 附近 选择 初始 值 。 

牛顿 法 具有 明显 的 几何 意义 ， 方 程 


y= (后 )+JOx)(x 一 五 ) 
是 曲线 在 点 (和 ,F(x)) 处 的 切线 ， 和 迭代 格式 (24-16〉 就 是 切线 与 x 轴 交 点 的 横 坐 标 ， 所 以 牛顿 


法 就 是 用 切线 与 x 轴 交 点 的 坐标 近似 代替 曲线 与 x 轴 交 点 的 坐标 ， 如 图 24-3 所 示 。 因 此 ， 牛 
顿 法 也 称 切线 法 。 


P(x)=x— 


图 24-3 牛顿 法 的 几何 意义 
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如 果 迭 代 过 程 中 出 现 (x)=0， 或 者 迭代 次 数 超过 某 一 上 界 M， 仍 达 不 到 要 求 精度 ， 则 
认为 计算 失败 。 
呈 国 用 和 牛顿 法 求 方程 z-sinx = 0.5 的 根 ， 使 其 精确 到 0.0001。 
解 ， 设 函数 F(z)=x-sinx-05，JFD=-0.34<0,F(2)=0.591>0 。 所 以 方程 在 区 间 (12) 之 间 
有 一 根 。 又 因为 fx) =1- cosx ， 故 迭代 格式 为 


Xi — Sin x —0.5 
bE 7 人 一 
1—cos% 

取 罗 =2， 计 算 结 果 列 于 表 24-3。 

因 央 用 和 地 寺 求 平方根 Ve(c > 0) 的 交代 格式 ， 并 计算 Vi35.607 ， 使 其 精确 到 小 数 点 后 5 
位 。 


解 : 设 f(x)=x-c， 则 f(x)=0 的 根 就 是 Vc(c > 0) 。 由 式 (24-16) 和 迭代 格式 为 ， 


HI 二 Mk 一 


-cec 1 C 
2 二 


可 以 证 明 ， 这 个 迭代 格式 对 任意 初 值 x > 0 都 是 收敛 的 。 利 用 上 式 ， 取 x =12， 计 算 结 果 如 表 
24-4。 
表 24-3 “牛顿 法 的 解 表 24-4 牛顿 法 求 平方 根 


11.65029167 


11.6450430 


11.64504135 


练习 13 ”用 和 牛顿 法 求 方程 f(z)= 忆 -xzx-1=0 在 为 =1.3 附 近 的 一 个 根 ， 并 说 明 如 何 更 有 效 地 
使 用 牛顿 法 。 
24.3.2 简化 牛顿 法 


牛顿 法 的 最 大 优点 是 收敛 速度 快 , 其 基本 思想 也 可 以 推广 到 各 类 非 线 性 方程 组 , 但 其 缺点 
是 每 迭代 一 次 要 计算 一 次 导数 值 / xs) 中， 这 对 f(x) 表达 式 复杂 或 无 明显 表达 式 的 问题 造成 
了 困难 ,计算 f (xs) 的 工作 量 就 可 能 很 大 。 有 时 为 了 避免 计算 导数 值 ， 我 们 常常 用 一 个 给 定 的 
常数 值 c 来 代替 导数 值 ， 这 时 的 迭代 公式 就 成 为 


A 二 a2 (24-18) 


此 式 称 为 简化 牛顿 迭代 公式 ， 只 要 c 选择 得 当 ， 式 〈24-18) 总 是 收敛 的 ， 不 过 其 收敛 速度 降 
为 线性 。 其 几何 意义 可 描述 为 ， 用 平行 线 代替 牛顿 法 中 的 切线 ， 如 图 24-4 所 示 。 
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图 24-4 简化 牛顿 法 的 几何 意义 


但 c 值 应 如 何 选择 ， 使 得 式 〈24-18) 总 是 收敛 的 ?. 可 以 从 和 迭代 函数 及 收敛 条 件 来 确定 ， 
因为 p(D=x~ 了 人 及 pW=1- 人 2 . ee 即 


x < (24-19) 


迭代 公式 (24-18) 收敛 ， 这 时 a 且 满 中 (24-19) 式 即 可 。 这 样 的 c 
值 比较 容易 得 到 ， 确 定 一 个 c 值 后 ， 代 入 〈24-18) 式 ， 即 可 用 迭代 公式 计算 ， 这 样 每 迭代 一 
次 ， 只 要 求 一 次 fo 的 值 。 显 然 计 算 的 工作 量 要 比 牛 顿 法 小 得 多 。 
了 和 用 简化 牛顿 法 求 x-sinx-0.5=0 的 根 。 
解 ， 因 为 x 在 1.5 附近 ， (4.5)=1-cos1.5= 0.9。 取 c=0.9 可 得 和 迭代 公式 ， 
xX. —Sinx: —0.5 

0.9 
取 冯 =2 二 24-5。 
表 24-5 .简化 牛顿 法 


比较 实验 4 与 实验 6 的 计算 结果 , 为 达到 同一 精度 , 牛顿 法 友人 代 4 次 而 简化 牛顿 法 需要 迭 
代 5 次 ， 收 敛 速度 比 牛 顿 法 慢 些 。 


练习 14 试 选 取 不 同 的 c 值 求 方程 fCoz) =1-x-sinx=0 的 根 ， 说 明 ce 值 对 收敛 速度 的 影响 。 


24.3.3 ” 制 线 法 
简化 牛顿 法 是 用 一 个 常数 代替 牛顿 公式 中 的 导数 值 ， 但 没有 充分 利用 f(x) 本 身 的 特性 ， 
因此 收敛 较 慢 。 若 在 牛顿 迭代 公式 中 改 用 差 商 了 fC 代替 导数 / (x) ， 得 迭代 公 


太一 及 


2 a 24-20 
Xk+l 二 F(x,) - fj Ki) ( ) 


可 以 证 明 ， 它 的 收敛 阶 为 p= 了 (+V5)=1.618， 确实 比 式 (24-18) 收敛 快 , 计算 公式 (24-20) 
称 为 割 线 法 公式 。 如 图 24-5， 它 的 几何 意义 是 ， 连接 曲线 y= f(x) 上 的 两 点 p, (x, f(x) 与 
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Drii(XKi1r 了 (1)) ， 所 得 弦 线 与 大 轴 交 点 的 横 坐 标 即 为 由 此 式 求 出 的 mx 。 它 与 前 面 和 迭代 格式 
的 区 别 在 于 计算 时 ， 需 要 提供 二 个 初 值 避 和 六 。 


图 24-5 割 线 法 的 几何 意义 
用 市 线 法 求 方程 z-sinx-05=0 在 xz=1.5 附近 的 一 个 根 。 
解 : 取 为 =1.4, =1.6 进 行 和 迭代， 并 有 迭代 格式 ， 


Xi —Sinx, 一 0.5 


Xi = Xk (% —X) 


二 (入 一 到 了) 一 (Sin 入 一 SinX yl) 
计算 结果 见 表 24-6。 
表 24-6 割 线 法 


天 二 要 明王 西区 贡 四 天 欧阳 呈 醒 要 天 电 了 区 天 明 


实验 结果 表明 , 割 线 法 的 收敛 速度 还 是 很 快 的 。 进 一 步 地 分 析 可 知 它 的 局 部 收敛 速度 比 牛 
顿 法 略为 慢 些 ， 但 是 它 避 免 了 求 导数 ， 而 且 每 迭代 一 次 ， 只 要 求 一 次 f(x) 的 值 ， 计 算 工作 量 
比 牛 顿 法 少 。 


24.4 ”计算 重 根 的 牛顿 迭代 法 


如 前 所 述 ， 若 x 是 f(x)=0 的 m 重 根 (m 宇 2)， 则 f(x) 可 表示 为 
. f(x)=(x—x) g(x) 
其 中 g(x) 二 0， 此 时 用 牛顿 迭代 法 求 x 仍然 收敛 ， 只 是 收敛 速度 将 大 大 减 慢 。 
顺 国 求 西 数 /()=x'-8.6x? -35.51x? +464.4x-998.46 在 区 间 [2,10] 上 的 根 。 
解 : 作 函 数 ”= f(x) 在 [2,10] 上 的 图 形 如 图 24-6。 从 图 形 上 可 看 出 , 在 x=4 附近 可 能 有 一 重 根 。 
在 区 间 [7,8] 处 有 一 单 根 。 首 先 用 牛顿 法 求 x=7 附近 的 单 根 。 


图 24-6 ”y= Fn 的 图 形 
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取 初 值 允 =7 ， 由 广 (z)=4z -25.8x 一 71:02x+464.4 ， 应 用 牛顿 法 ， 其 和 迭代 公式 为 
4 = 加 一 站 (k=0,1…)， 计 算 结果 见 表 24-7。 
f (1) 
可 知 迭 代 5 次 , 该 6 位 数 均 为 有 效 数 字 ， 收 敛 速度 是 很 快 的 。 同样， 用 牛顿 法 求 区 间 [4,5] 
内 的 根 ， 取 元 =4， 计 算 结果 见 表 24-8。 


表 24-7 牛顿 法 求 单 根 表 24-8 牛顿 法 求 重 根 


0.485612 4.145408 0.145408 


-0.125205 4.22138 0.075974 


-1.18XX107 4.26033 0.038952 


-1.02X 10* 4.28007 0.019740 


4.29001 0.009939 


-7.58X10° 


如 果 继续 计算 下 去 ， 需 要 迭代 19 次 。 由 以 上 计算 结果 可 以 猜想 ，f(x)=0 在 x=4.2 附近 
确实 有 根 且 为 重 根 ， 用 牛顿 法 计算 ， 收 敛 速度 减 慢 ， 每 一 个 6 大 致 是 前 一 次 选 代 的 一 半 。 


_fW) 过 人 为 ) | A 
于 f(x) tC 


e:8(X) i 
mg(X)— eg (XK) 
lim < lim[l-— Seo) -1_ lz0 (24-21) 
ko ex XR mg (Xx)+eg (Xi) m 


可 见 用 和 牛顿 法 求 方程 的 重 根 仅 为 线性 收敛 。 
为 了 提高 求 重 根 的 收敛 速度 ， 有 两 种 可 供 选 择 的 方法 。 方 法 之 一 是 将 求 重 根 的 问题 转化 为 
求 单 根 ， 注 意 到 函数 


FY mor 


Q(X)= 二 #0,x* 是 u()=0 之 单 根 ,因此 , 求 ()=0 之 m 重 根 x 等 价 于 求 u(x)=0 之 单 根 x， 
而 对 u(x)=0 用 牛顿 迭代 法 求 根 则 是 平方 收敛 的 ， 其 迭代 格式 为 
u(x ) f(x)Ff (x) (24-22) 


Gm) GPF)F Ge) 
上 述 选 代 格式 右 端 较 复杂 ， 应 用 起 来 不 方便 。 另 一 种 求 m 重 根 的 方法 是 采用 如 下 选 代 格 
, 
po A (24-23) 
f (xX) 
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其 中 m 为 根 的 重 数 ，(24-23〉 式 称 为 带 参数 的 牛顿 迭代 格式 。 可 以 证 明 它 是 求 m 重 根 x 的 具 
有 平方 收敛 的 迭代 格式 。 
问题 是 如 何 确定 根 的 重 数 m。 下 面 介绍 一 个 边 迁 代 边 估计 重 数 的 方法 。 设 五 -,z- 区 为 用 


牛顿 迭代 格式 〈24-16) 所 得 三 个 相 邻 的 迭代 值 ， 令 
14, = 一 


1— Ci-1 


(Xi — A) — (Xi — xX) eu 一 6 e e 
则 1， = 一 一 一 一- 二 一 一 = 一 一 二 -= 一 一. 和 二， 由 式 〈24-21) 可 知 ， 
”Cs 克 -0 二 ee Ci 1~ >-2 


lim =1- 工 = 严 -1 。 故 ,= 五 一- 外 1， 因此， 可 用 下 式 估计 1m， 
业 一 om m m m 


Xi-1 -2 

es - 
1-4, 

了 了 峡 ”用 带 参 数 的 牛顿 迁 代 法 求 方程 f(x)=(x 一 D[sin(x-D+3J- 攻 +1=0 在 095 附近 之 

根 。 

解 : 取 罗 =0.95 ， 用 牛顿 迭代 法 求 得 的 x 见 表 24-9。 由 表 24-9 中 数据 可 见 五 收敛 很 慢 。 由 


一 ~2 可 知 ， 所 求 根 为 m=2 重 根 ， 改 用 式 (24-23〉 迭代 格式 ， 得 
Thr 


m (24-24) 


为 =0.95, x =0.9988559, x, = =1 


收敛 速度 大 大 快 于 直接 用 牛顿 迭代 公式 。 
表 24-9 带 参 数 的 牛顿 迭代 法 


0.95 
0.9744279 
0.9870583 


”0.9934878 


0.9967328 
0.9983576 
0.9991901 


练习 15 不 同 迭 代 格 式 和 算法 比较 。 用 下 列 和 迭代 格式 求 方 程 f(x)=x 一 x~1=0 在 x=1.5 附近 

的 根 。 

0) Saitl; (9) ms= 开 -1; 

(3) 分 别 对 (1),，(2) 两 种 格式 用 和 迭代 加 速 法 。 

时。 假 收 敛 现象 及 避免 方法 。 已 知 方程 f(x) =(e* +e-”)cosr-2=0 的 最 小 正 根 在 (3.5,5) 
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内 ， 试 用 割 线 法 求 此 根 。 大 
解 : 割 线 法 迭代 公式 为 上 ,= 二 -了 Ca)Ca 一 交 4) ， 用 四 组 不 同 的 初 值 志 ,zx 进行 选 代 ， 结 果 如 


f 0)— fx) 
下 : 


(D) x =3.8,x =3.9,x0 =x =-3.635727, f(x®)=—17.070775 

(2) x =3.9,x0 =4,x0 =x2 =4, f (x0)=-37.6997 

(3) x =3.95, x =4,x =x® =3.918114, f(x® )=—37.89988 

(4) x =4,x =4.Lx9 =x =4.730041 f(x )=—2.253056x10™ 
每 一 组 迭代 值 都 出 现 了 和 = 发- 情况 ， 继 续 迭 代 不 会 再 有 改善 ， 表 面 上 看 似乎 得 到 了 四 个 根 ， 
其 中 第 (3) 组 结果 x =3.918114 为 所 求 的 最 小 正 根 ， 然 而 由 函数 的 图 形 可 见 ， 在 区 间 (3.5,5) 
内 方程 只 有 一 个 根 。 由 各 组 结果 对 应 的 函数 值 f(x) 可 以 看 出 ， 只 有 第 (4) 组 结果 
x = x9 =4.730041 才 是 所 求 最 小 正 根 的 近似 值 ， 其 它 各 组 结果 均 为 “ 假 收敛”。 

为 什么 会 发 生 如 此 严重 的 假 收 全 现象 呢 ? 现 以 第 (2) 组 计算 结果 为 例 分析 如 下 ， 由 于 
x =3.9, x =4 痢 靠近 曲线 f(x) 的 极 小 值 ， 因 此 过 (3.9, (3.9)) 与 (4, F(4)) 两 点 的 弦 线 与 x 
轴 夹 角 较 小 ， 从 而 与 x 轴 的 交点 x = 25.20078 远 离 x2 ， 且 f(x 中)=8.781153x10" 非常 大 ， 
再 往 下 和 迭代， 得 | 

2 2) fx -x ) (2) 一 _ 
人 


4 三 


fF) ft) -37.6997 -8.781153x100 


(分 母 太 大 ， 第 二 项 不 起 作用 )》 
在 牛顿 迭代 法 中 也 可 能 出 现 假 收敛 现象 。 因 此 在 输出 迭代 结果 六 的 同时 还 应 输出 f(%) 之 
值 ， 以 鉴别 是 否 假 收敛 。 
避免 假 收敛 的 方法 之 一 是 适当 选择 迭代 初 值 , 使 之 远离 极 值 点 ;方法 之 二 是 改变 方程 形式 ， 
使 f(x) 在 根 的 附近 变化 不 太 激 烈 。 例 如 ， 将 实验 10 中 方程 转化 为 等 价 方程 


一 着 


8(Z)=cOSX 一 区 
1+e 


画 出 g(x) 的 图 形 (如 图 24-7 所 示 )， 对 此 方程 应 用 割 线 法， 仍 分 别 取 上 述 四 组 初 值 ,x ， 
和 迭代 结果 均 为 


Xs ==4.730041 
g(xs)= g(xX6)=—1.974404x10™ 


可 见 对 方程 作 上 述 等 价 变形 后 ， 不 仅 保证 了 和 迭代 过 程 的 收敛 性 ， 而 且 收 敛 速 度 很 快 。 
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图 24-7 g(x) 的 图 形 


道 它 收敛 的 阶 数 〈 实 际 上 为 1 )， 能 否 设计 一 个 实验 得 到 收敛 阶 数 的 近似 值 ? 
解 ， 假设 它 的 收 化 阶 为 p， 应 当 存在 常数 cx0， 使 得 


p Cc 
er 
当 k0 1 时 ， 上 式 可 以 近似 地 写成 
le (24-25) 
EK 
将 (24-25) 式 两 边 取 对 数 得 到 
Iner ~=plne,+Inc (24-26) 


(24-26) 式 指出 : ne 和 Ine 之 间 应 当 近 似 地 有 线性 关系 ，Ine,,, 和 Ine, 之 间 直 线 的 斜率 正好 
是 p。 
现在 取 一 个 初始 值 =0.5， 和 迭代 30 次 ， 并 表 出 Ine,,, 和 iIne, 之 间 的 图 形 如 图 24-8。 


4 


-3 6 4 -2 


. 
由 大 &、 


图 24-8 ”Ine,, 和 Ine, 之 间 的 图 形 

可 以 看 出 它 的 确 近 似 一 条 直线 。 再 用 最 小 二 乘法 拟 合 ,得 到 该 直线 的 斜率 (也 即 迭 代 法 的 
阶 ) p=1.0629。 

为 什么 数值 实验 的 结果 和 理论 结果 不 一 致 ? 这 是 因为 式 (24-26) 只 是 近似 地 成 立 ， 而 且 
我 们 没有 考虑 当 e, = 0 时 舍 入 误差 的 影响 。 即 便 如 此 ， 数 值 实验 也 定性 地 告诉 我 们 迭代 法 的 收 
练习 16 找 出 一 维 搜索 的 最 佳 方法 。 

假设 在 f(x)=0 在 [a, bp] 区 间 内 只 有 一 个 根 〈( 可 以 是 重 根 )， 求解 该 方程 等 价 于 在 区 间 [a, 5] 
上 找 |1 f(x)1 的 极 小 值 点 ， 设 计 一 种 寻找 极 小 值 点 的 方法 ， 使 得 计算 f(x) 的 次 数 尽 可 能 少 ， 并 
完成 数值 实验 。 你 能 从 理论 上 证 明 你 的 搜索 方法 最 好 吗 ? 
练习 17 设计 一 个 数值 实验 ， 在 数值 上 估计 割 线 法 的 收敛 阶 。 
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练习 18 了 解 牛顿 法 收敛 域 的 结构 和 “局 部 ”收敛 性 。 


牛顿 法 可 以 直接 用 来 求解 复数 方程 -1=0 ， 在 复 平面 上 它 的 三 个 根 是 坊 =1 ， 
已 = 一 站 + 。 远 择 中 心 位 于 毕 标 原点 、 边 长 为 2 的 正方 形 内 的 点 为 初始 值 。 把 收 全 到 8 个 


不 同根 的 初始 值 分 别 标 上 不 同 颜色 。 只 要 计算 足够 多 的 点 , 你 将 得 到 关于 牛顿 法 收敛 域 的 彩色 
图 片 。 
练习 19 研究 一 般 和 迭代 公式 的 复杂 行为 ， 初 步 看 到 混沌 现象 。 

和 迭代 公式 = 入 (1 一 各) (天 =012…) 取 [0.2,4] 中 不 同 的 么 值 , 并 取 为 e (0.D 进 行 计算 。 
天 出 1x 和 XA(k>50) 之 间 的 关系 图 。 


24.5 ”值得 进一步 研究 的 问题 
问题 1 数据 误差 对 根 的 影响 。 给 定 方程 
f(x)=(x-D(x-2)(x—3)(x—4)(x~5)(x—6)(x—7) 
=X 一 28x5+322xs —1960x* + 6769x3 —13132x? +13068x 一 5040=0 
车 对 其 x 项 系数 引入 微小 扰动 ， 其 它 系数 不 变 ， 使 之 变 为 
f(x)= f(x)—0.002xs 
=x’ —28.002x +322x’ —…=0 

试 分 析 扰 动 方程 f(x)=0 之 根 的 特点 。 
问题 2 根 的 搜索 ,用 逐步 搜索 法 求 出 下 列 方程 f(x) =0 在 指定 范围 内 的 所 有 实 根 的 隔 根 区 间 ， 
并 绘 出 f(x) 在 x 轴 附 近 的 图 形 。 注 意 ， 所 给 方程 可 能 有 重 根 ， 观 察 在 重 根 附 近 搜 索 时 可 能 出 
现 的 现象 。 

(1) f(x)=x:—8.6x -35.51x? +464.4x—998.46=0, 4<x<8; 

(2) f(x)=x*—115x’+1575x ~7625x+12500=0, 4.95<x<5.1; 

(注意 ，x* =5 为 其 三 重 根 ) 

(3)f(x)=x +2xe* +e”* =a,， -4x 世 3, 其 中 a=0,9,81。 


问题 3 ”迭代 法 的 收敛 性 与 收 伍 速 度 比较 。 
用 下 列 方案 求 方程 f(x)=x? 一 sinx 一 12x+1 的 全 部 实 根 ，e =10, 并 比较 取 相 同 迭 代 初 值 


时 各 方法 的 收敛 速度 。 | 
方案 I 用 牛顿 法 ; 方案 了 用 普通 碗 代 法 ， 参 考 迭 代 格 式 〈(1)、(2)。 方 案 三 用 和 迭 代 加 速 法 。 


(D) x=9(%)=2x+sinx-l， -4<x-3 或 3<x 志 4 
(2) x = 9,(*) = —sinx+l),， 0x0.2 
问题 4 求 f(x)=(sinx)'e** tan(l- 习 在 区 间 [0.1] 上 的 极 大 值 点 与 极 小 值 点 。( 提 示 : 若 用 牛顿 


法 ， 则 直接 对 /“(x) = 0 求解 是 很 不 利 的 ， 应 将 方程 化 简 后 再 求解 ) 
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问题 5 在 曲线 y= x 上 求 一 点 ， 使 它 到 点 (2,3) 的 距离 最 小 ， 并 求 此 最 小 距离 。 

问题 6 在 什么 条 件 下 ， 只 要 初始 点 足够 靠近 不 动 点， 函数 (x) 的 迭代 一 定 收敛 到 不 动 点 ? 
问题 7 在 什么 条 件 下 , 无 论 初始 值 如 何 靠 近 不 动 点 ， 失 代 都 不 收敛 到 指定 的 不 动 点 ? 什么 是 
边际 情况 ? 

问题 8 在 什么 情况 下 可 以 修改 迭代 过 程 以 保证 收敛 到 给 定 的 不 动 点 ?关于 收敛 到 不 动 点 的 速 
度 ,你 能 得 出 什么 结论 ? 你 能 给 出 收敛 特别 快 或 特别 慢 的 例子 吗 ? 修改 过 的 迭代 和 简单 迭代 的 
收敛 速度 相 比 如 何 ? 


问题 9 几乎 前 面 给 出 的 所 有 算法 都 适用 于 求 代数 方程 的 复数 根 ， i 
x+ 入 +1=0 在 为 = er 附近 的 根 。 
”问题 10 设 f(x)=0 在 区 间 [a,b] 上 有 一 个 根 x* 。 当 1f(%)D 1 时 可 以 用 


! _ f+f(m) -fxn) 
人 fm) 
近似 代替 f(x,)。 这 时 牛顿 迭代 公式 为 
及, 二 六 二 = 大 = 0,12…. 
f(x + f(x))— f(x) 

证 明 该 迭代 法 的 收敛 阶 是 2。 
提示 : 可 以 用 两 种 不 同方 法 : 

(1) 利用 有 关 阶 的 概念 ， 把 f(x+ f(x)) 在 x 处 作 泰 勒 展开 。 

(2) 直接 利用 收敛 性 定理 和 洛 必 达 法 则 。 
问题 11 ”牛顿 法 是 利用 函数 f(x) 的 线性 泰勒 展开 近似 原来 的 函数 而 得 到 的 , 如 果 把 函数 在 六 
完成 二 次 泰勒 展开 ， 并 求解 

f+tF Hx XA) + K(x- =0 

得 到 下 一 个 近似 ， 请 你 

(1) 写 出 一 个 算法 公式 实现 上 述 想 法 ; 

(2) 列 出 算法 可 能 遇 到 的 问题 ; 

(3) 分 析 算 法 的 收敛 性 。 
问题 12 如果 一 个 选 代 法 是 超 线性 收敛 的 证 明 当 普 充分 大 时 es -Ine, 是 关于 的 减 函数 。 


如 果 和 迭代 法 是 线性 收敛 的 ， 结 论 如 何 ? 
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实验 二 十 五 线性 方程 组 的 数值 解法 


在 科学 技术 和 工程 设计 中 ， 很 多 问题 都 涉及 下 面 的 大 型 线性 方程 组 的 求解 。 
GD 和 十 0 和 t+...+ a x =b, 
OA ta +t...+ aX, =b, (25-1) 
QM ta +t... + A, =b, 
为 方便 起 见 ， 常 将 线性 方程 组 (25-1) 表示 成 矩阵 形式 
Ax=b (25-2) 
4 42 ”… un 
其 中 ，4=| 和 9 | = 和 = 信访 已 并 。 分 别称 为 方程 组 (25-2) 


Ca Cn2 “a 
的 系数 矩阵 ， 解 向 量 和 右 端 向 量 。 若 4 可逆 ， 则 式 〈25-2) 存在 唯一 解 。 

线性 代数 方程 组 可 直接 模拟 很 多 实际 问题 ， 如 电网 络 问题 、 结 构 设 计 问题 等 ， 也 来 自 计 
算数 学 本 身 ， 在 数据 处 理 和 曲线 拟 合 中 , 大 量 的 线性 和 非 线性 的 微分 方程 ,如 用 有 限 差分 法 或 
有 限 元 法 求解 时 得 到 的 离散 方程 组 ， 它 们 多 数 是 大 型 稀疏 〈4 的 元 素 中 大 多 数 为 零 ) 方程 组 。 

虽然 已 学 过 加 减 消 元 法 、 代 入 消 元 法 、 抢 阵 变换 法 和 克 莱 姆 〈Gram) 法 则 等 ， 但 是 永远 
满足 不 了 实际 计算 的 需要 。 我 们 对 克 莱 姆 法 则 很 熟悉 ， 但 它 只 适合 于 很 少 的 情况 。 当 闫 稍 大 ， 
比如 n=24, 用 克 莱 姆 法 则 需要 计算 4 的 24 阶 行列 式 , 如 果 按 行列 式 的 定义 去 计算 , 需 24k23 
次 乘法 运算 。 在 每 秒 1000 万 次 乘除 运算 的 计算 机 上 计算 ， 需 花 的 CPU 时 间 为 4.5X10" 年 。 
它 完全 不 适合 高 阶 方程 组 。 科 学 和 工程 计算 经 常 需要 求解 100 个 变量 、1000 个 变量 、 甚 至 上 
万 个 变量 的 方程 组 。 因 此 ， 有 必要 寻求 更 有 效 的 解法 。 线 性 方程 组 的 解法 一 般 有 两 类 ; 

直接 法 .经 过 有 限 次 算术 用 运算 求 出 精确 解 〈 实 际 上 由 于 有 舍 入 误差 ， 只 能 得 到 近似 的 
解 )。 对 于 中 小 型 方程 组 ， 常 选用 直接 法 ， 因 为 直接 法 能 在 预定 的 计算 步 数 内 求 得 精确 解 〈 不 
” 计 会 入 误差 )， 可 靠 且 效率 高 。 本 实验 将 介绍 这 类 方法 中 最 基本 的 高 斯 (Gauss) 消去 法 及 与 它 
密切 相关 的 矩阵 LU 分 解 ， 并 对 误差 分 析 作 简单 讨论 。 

友 代 法 : 从 初始 解 出 发 ， 根 据 设 计 好 的 格式 用 逐次 求 出 的 近似 解 逼 近 精 确 解 对 于 高 阶 
的 ,特别 是 大 型 稀疏 方程 组 ， 由 于 直接 法 的 存储 量 和 计算 量 太 大 ， 通常 迭代 法 是 有 效 的 。 本 实 
验 将 介绍 雅 可 此 〈Jacobi) 迭代 法 和 高 斯 - 赛 德 尔 〈Gauss-Seidel) 迭代 法 ， 并 对 迭代 的 收 和 敛 性 
作 一 些 简单 的 研究 。 

直接 法 的 优点 是 计算 量 小 ， 并 且 可 以 事先 估计 ， 它 的 缺点 是 所 需 储 单元 较 多 ， 编 程 复 杂 。 
迭代 法 的 优点 是 : 原始 系数 和 矩阵 始终 不 变 , 因而 算法 简单 , 编程 较 方 便 且 所 需 存 储 单元 也 很 少 。 
铅 点 是 存在 收敛 性 和 收 和 敛 速度 的 问题 ， 因 而 只 对 系数 矩阵 具有 某 些 性 质 的 方程 组 才 适 用 。 


25.1 直接 法 


高 斯 消去 法 在 线性 代数 课程 中 已 学 习 过 ， 这 里 再 次 提 及 是 想 研究 系数 矩阵 的 变化 规律 ， 
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并 在 此 基础 上 对 高 斯 消去 法 作 些 改进 。 
将 方程 组 〈25-2) 记 为 
407 =50 (25-3) 
其 中 ，A” =(a0)=(@y)=A4, b=(b0 ,bY,,b") =(b,b,,…,b,) =b。 
第 一 步 ， 设 a® # 0, 利 用 ay 消去 〈25-3) 中 除 第 1 个 方程 外 其 余 各 方程 的 x,， 即 将 第 1 
个 方程 乘 以 -4 ， 


有 = i=2,3,.…,n 
加 到 第 i(i = 2,3,……,m) 个 方程 上 去 ， 得 到 〈25-3) 的 等 价 方程 组 
4OyY = . (25-4) 


其 中 ， a = 9 一/ id， i,j=2,3,.…,n, b®? =b" -Lb, Pe WR 
从 矩阵 运算 的 观点 看 ， 实 质 上 相当 于 用 初等 矩阵 


1 00...0 
Lb 1 0 … 0 
L=|10 0 1 … 0 


分 别 左 乘 40 及 5 ， 即 
LA® = 4O) Lb® 一 万 02) 
第 二 步 ， 方 程 组 (25-4) 的 第 1 个 方程 不 变 ， 若 a,, #0 ， 采 用 与 第 一 步 相似 的 方法 ， 利 用 
a 消去 第 3 至 第 nn 个 方程 中 的 ， 即 将 第 2 个 方程 乘 以 -1,， 即 


L, 二 一 5， i=3,4 sn 
022 
加 到 第 ii = 3,4…,m) 个 方程 上 去 ， 得 到 〈25-3》 的 等 价 方程 组 
4G9y 一 09) 


其 中 a =a 一 ha，i,j=3,4,…,n，b =b2 -1,b 2 ，i=3,4,…,n。 与 第 一 步 相 似 ， 第 二 
步 相 当 于 用 


OE 0 
0 1 0 ...0 
L=|o -, 1 .0 
: : 0 … 0 
RE a 


分 别 左 乘 4? 和 bp? ， 即 二 4 =A9,Lb? =59) 。 
一 般 地 ， 第 k 步 ， 若 at? 0， 则 利用 a4? 作 第 次 消 元 ， 即 将 第 个 方程 乘 以 一， 


(k) 


Ss i=k+Lk+2,...,n (25-5) 


加 到 第 i(i=k+1,k+2,…,n) 个 方程 上 去 ， 得 到 《25-3〉 的 等 价 方程 组 
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ALtDr buy (25-6) 


其 中 
al =al — 网 i,j=k+l,k+2,.…,n 
be =b? Lb, i=kt+lk+2,.,n 

通常 称 4 为 消 元 因子 。 

同 理 ， 第 不 步 相当 于 用 


(k) 
1 
0 
0 .. 1 
及 =|0 一 和 1 
: ; :1 0 
0 … 一 0 0 1 


分 别 左 乘 4 ,5 ， 即 
五 4 = A Lb =p 
上 述 作 法 ， 直 到 第 nn--1 步 做 完 ， 得 到 “25-3)〉 的 等 价 方程 组 为 
ADX 二 5 (25-7) 
其 中 a =ar ?Lar , b=b" -lb 
由 (25-3) 式 约 化 到 (25-7) 式 的 过 程 称 为 高 斯 消去 法 的 消 元 过 程 。 从 矩阵 运算 的 观点 看 ， 
就 是 连续 对 40,52 左 乘 初等 矩 阵 工 , 工 …,L ,， 即 


Lb LILA"=A" (25-8) 
Lbs a Db =b" (25-9) 
为 简单 起 见 ， 令 4" =U 其 中 U 为 上 三 角 和 矩阵 

WU Wa hn 

y= 0 Wy Wn 

Un 

于 是 (25-3) 式 可 写成 

Ux=Lb (25-10) 


这 就 是 消去 法 最 终 得 到 的 (25-3) 式 的 矩阵 表达 形式 ,因为 U 可 逆 ， 所 以 方程 组 (25-10)， 
也 即 方程 组 (25-3〉 的 解 为 

x=ULb (25-11) 

这 样 , 求解 (25-3) 相当 于 通过 4 左 乘 单位 下 三 角 阵 化 为 上 三 角 阵 的 过 程 ， 而 且 可 以 证 明 ， 

消 元 中 关于 a zz0(k=1,2,…,n) 的 假设 ， 等 价 于 系数 和 矩阵 4 的 顺序 主子 式 


a a 


(k=1,2,…,n) 不 等 于 零 。 


a ons a 


需要 指出 的 是 ，@ 当 线性 方程 组 的 系数 矩阵 4 为 实 对 称 正定 矩阵 时 ， 在 进行 高 斯 消 元 过 
和 人 0 12,…. ny SD 名 高 斯 消去 法 的 总 运 


算 量 为 : tm 了 次 乘除 法 ， 碟 + 厂 -2n 次 加 减法 因此 高 斯 消去 法 的 计算 量 为 O(n )。 


思考 : (1) i SE 0 (可 就 k=1,2 的 情况 说 明 )。 
(2) 为 什么 系数 矩阵 4 为 实 对称 正 定 矩 阵 时 ， 可 直接 利用 高 斯 消去 法 ? 
(3) 试 比较 高 斯 消去 法 和 克 莱 姆 法 则 的 运算 量 《 可 以 n=10 为 例 说 明 )。 
(4) 若 a =0,det(4) 关 0, 如 何 利用 高 斯 消去 法 求解 Ax=b? 
a 0.003n +59.14z =59.17  ，、 二 
用 高 消去 法 解 方程 组 | 320 6130z =46.78” ( 它 的 精确 解 为 x =10,% =1)。 


解 ， 利 用 高 斯 消去 法 ， 其 消去 因子 1 = ~ 


0.003 59.14 YAY f 59.17 
| 0 ol 
解 得 x, =1.001,*% = 一 10， 其 中 x 与 兆 反 了 号 。 
主要 原因 是 出 现 了 小 主 元 0.003。 在 求 时 , 消去 因子 4 将 x 的 误差 0.001 放大 了 约 20000 
倍 , 同时 又 出 现 了 两 个 相近 数 相 减 严重 损失 有 效 位 的 问题 ,从 而 使 解严 重 失真 。 消去 因子 过 大 
是 造成 误差 迅速 传播 和 算法 数值 不 稳定 的 主要 因素 。 
如 果 把 两 个 方程 次 序 交换 ， 即 


5.291 -6.130¥%) (46.78 
0.003 59.14 x, | (59.17 


作 高 斯 消 元 时 ， 消 去 因子 4 = 2 =0.0005760 <1， 消 元 后 


5.291 -6.130¥Y x \) (46.78 
0 59.14 |x,) |59.14 
解 得 % =1.00= 交 ， 为 =10.00= 克 。 
因此 ， 只 要 det4#0， 原 方程 组 一 定 存在 唯一 解 ， 且 又 不 是 病态 方程 组 的 话 ， 总 可 以 对 方 


程 组 进行 行 交 换 或 列 交 换 来 消除 零 主 元 和 小 主 元 ， 这 就 是 选 主 元 的 思想 。 
下 面 我 们 将 讨论 列 主 元 的 消 元 法 :在 完成 第 k 一 1 步 消 元 后 ， 


20000 ， 则 有 


| 1 a On 
2 4 
ao) a®) 
A® = a a 
大 大 
Gs > 
a® .a 


选 出 第 大 列 1a 由 bia 四 ,1…,ia 由 [中 最 大 者 ， 即 max la Ha 1。 就 将 此 元 素 ok) 作为 新 的 主 
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对 角 元 a 由， 为 达到 这 点 ， A 当然 方程 组 的 右 端 项 5 中 的 元 素 也 应 


作 相 应 的 行 交换。 此 时 ， 消 去 因子 1 上 | 


因此 一 般 地 能 保证 舍 入 误差 不 扩散 ， 这 一 方法 基本 上 是 稳定 的 。 

用 高 斯 消去 法 与 选 列 主 元 法 解 方 程 组 
0.0071 3.8657 1.1023 3.1243 Yn \) f 8.0904 
0.1234 1.2343 2.3044 1.6257 | x, | | 5.2878 
9.9274 -4.9258 8.5042 -3.4253 | x | | 9.4805 
7.5433 9.9995 10.6278 -7.0147 x, | \21.2009 


解 : 计算 结果 见 表 25-1。 


表 25-1 解 的 比较 
高 斯 消去 法 


事实 上 ， 精 确 解 为 羡 = 为 = 为 = 为 =1， 可 见 选 主 元 的 计算 结果 优 于 不 选 主 元 ， 这 说 明 选 
列 主 元 法 确实 比 高 斯 消去 法 数值 稳定 性 好 。 

在 一 些 特殊 情况 下 , 选 主 元 与 不 选 主 元 一 样 ， 为 了 节省 机 时 就 可 以 不 选 主 元 。 例 如 在 实际 
工作 中 常见 其 元 素 满足 如 下 条 件 的 矩阵 


[a > Ya, "i=1,2,n 
名 


即 对 角 线 上 每 一 元 素 的 绝对 值 均 大 于 同行 其 它 各 元 素 绝对 值 之 和 ， 或 
lol> Be, ,j=12n 


即 对 角 线 上 每 一 元 素 的 绝对 值 均 大 于 同 列 其 它 各 元 素 绝对 值 之 和 , 这 样 的 矩阵 统称 为 严格 对 角 
占 优 矩阵 。 

可 以 证 明 ， 严 格 对 角 占 优 矩阵 必定 是 非 奇 异 的 。 若 4 对 称 且 严 格 对 角 占 优 ， 则 消 元 过 程 
中 第 上 步 主 元 必 为 dk) ， 因 此 不 必 选 主 元 ， 用 高 斯 消去 法 求解 即 可 。 
练习 1 分 别 用 高 斯 消去 法 和 选 列 主 元 消去 法 解 线性 方程 组 。 

12x ~3x, +3x, =15 
—18% +3x,—% =—15 
+ 二 + 加 =6 

练习 2 用 选 列 主 元 消去 法 解 下 列 方程 组 : 
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4 十 2 十 为 =3 -2 十 轧 一 为 =-0 
(1220 —5x,+2% =-—l (2)1n+5%, —2% = 一 | 
为 +2x 十 6 =9 五 一 六 十 45 =3 


并 观察 每 步 消 元 结果 的 系数 甜 阵 有 何 特点 ， 右 下 方 矩阵 是 否 对 称 ， 列 主 元 在 何 处 ? 
25.2 ”和 矩阵 的 LU 分 解 


高 斯 消去 法 的 过 程 说 明 ， 甜 阵 4 左 乘 单位 下 三 角 阵 M， 可 化 为 上 三 角 阵 U， 即 
MA=U 
因为 单位 下 三 角 阵 的 逆 仍 为 三 角 阵 ， 记 M” = 工 ， 我 们 可 以 得 出 如 下 结论 : 
若 郊 阶 手 阵 4 可 逆 且 顺序 主子 式 不 为 零 ， 则 4 可 分 解 为 一 个 单位 下 三 角 阵 工 和 一 个 上 三 
角 阵 U 的 乘积 
A=LU (25-12) 
可 以 证 明 分 解 是 唯一 的 ， 这 种 分 解 称 为 矩阵 LU 分 解 。 
由 前 面 的 分 析 可 知 ， 可 以 用 高 斯 消去 法 求 矩 阵 4 的 LU 分 解 。 事 实 上 ， 有 


大 一 1 
Wj =ay— Dd,, k=1,2,.…,n;,i =k,k+l,.…,n 
(25-13) 
lit -a -Si | fos k=1,2,.…,n;i =k+l,k+2,.…,n 
s=1 


如 果 只 知道 矩阵 4 可 逆 而 不 能 保证 其 顺序 主子 式 不 为 零 ， 那 么 在 消 元 过 程 中 可 能 会 遇 到 
某 个 al =0 的 情况 ， 但 这 时 必 至 少 有 一 个 al z0 (i =k+1,…,n), 但 需 像 选 列 主 元 消去 法 那 
样 ， 将 k 行 与 第 i 行 交换 ， 就 可 以 继续 施行 前 面 的 消 元 过 程 ， 而 这 种 行 交换 相当 于 4 左 乘 一 个 
由 单位 阵 第 k 行 与 第 i 行 交 换 所 得 的 初等 交换 矩阵 EE, ， 于 是 将 4 化 为 上 三 角 和 矩阵 上 U 的 过 程 相 
当 于 4 左 乘 一 系列 的 初等 交换 矩阵 和 单位 下 的 三 角 阵 ， 可 写作 


ME, "ME A=U (25-14) 
记 求 。 … 五 , =P，P 是 单位 阵 经 若干 次 行 交换 得 到 的 交换 阵 ， 由 “(25-14)〉 式 ， 可 推出 ， 
MPA=U (25-15) 


记 M”= 工 ， 就 得 到 以 下 结论 : 
若 妹 阶 和 矩阵 4 可 道 ， 则 存在 交换 阵 P， 使 


PA=LU (25-16) 
其 中 工 U 分 别 为 单位 下 三 角 阵 和 上 三 角 阵 。 
2 1 4 
| 求 矩 阵 4=|4 4 1 | 的 LU 分解 。 
6 5 12 
1 0 0lf2 1 4 
解 : 4=LU=|2 1 0|40 2 -7|.。 有 了 矩阵 4 的 LU 分 解 计 算 公 式 ， 即 可 得 解 线性 方程 组 
311|lo0 7 


Ax=b 的 LU 分 解法 。 当 要 解 多 个 系数 矩阵 为 4 的 线性 方程 组 时 ，LU 分 解法 就 显得 特别 优越 ， 
只 要 对 系数 矩阵 作 一 次 LU 的 分 解 ， 以 后 只 要 解 三 角形 方程 组 即 可 。 


199 


一 些 实际 问题 如 用 有 限 元 法 作 结 构 力学 计算 ， 常 归结 为 求解 系数 矩阵 对 称 正 定 的 线性 方 
程 组 ， 这 时 形 如 式 〈25-12) 的 LU 分 解 有 更 简化 的 形式 : 
”车 和 矩阵 4 对 称 正定 ， 则 必 存 在 单位 下 三 角 阵 工 及 对 角 阵 D， 使 得 
A=LDL (25-17) 


式 (25-17) 称 为 对 称 正定 矩阵 4 的 乔 累 斯 基 (Cholesky ) 分 解 , 车 记 d, = 4;， 注意 到 Ur =d,l,, 
则 由 4 的 LU 分 解 式 〈25-13) 可 得 乔 累 斯 基 分 解 的 计算 公式 为 


Ei k=1,2,.. il (25-18) 


kl 
有 -4 — Dall, Jp 
sml 


利用 乔 累 斯 基 分 解法 求解 方程 组 Ax=bp， 即 
Ly=b 


Lixo el 
Lx=y 


计算 公式 为 
i-l 
y=b, y=(b -Swh, i=2,3 
tl 
X= /ln 4=0.- 守 hD/h i=n—Lbn~2,.…,1 


k=it+l 


(25-19) 


用 乔 累 斯 基 方法 解 方程 组 Ax=bp， 其 中 


4 -1 1 4 
-1 4.25 2.75| b=| 6 
1 2.75 3.5 7.25 上 


解 ， 显然 4=47， 且 4 的 各 阶 顺序 主子 式 刀 =4>0,D, =16>0,D,=16>0， 因 此 4 是 对 称 正 
定 的 。 选 用 乔 累 斯 基 方法 ， 对 4 作 克 : 雹 分解 ， 得 


人 


4= 


2 
L=| 0.5 2 
0.5 1.5 1 


解 Ly=b， 即 得 y= (2,3.5,1) 再 解 Lx= y， 得 x=(1, 1, 1 。 


如 果 对 和 矩阵 采用 分 解 式 A=LDL ， 则 可 避免 开平 方 根 运算 ， 称 为 改进 的 平方 根 法 。 它 既 适 
合 于 求解 对 称 正定 方程 组 ， 也 适合 于 求解 A 对 称 且 其 顺序 主子 式 全 不 为 零 的 方程 组 。 可 以 得 
到 改进 平方 根 法 的 计算 公式 “25-18)。 并 且 按 下 式 求解 方程 组 Ax=b。 


Ly=b 
Lx=D"!y 


练习 3 LU 分 解法 的 优点 。 给 定 矩 阵 4 与 向 量 b 
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n n-l 2 1 
7 一] nn 3.%2 0 
A= : ，b= 
2 3 n n-l 
1 2 ， n-l nn 


(1) 求 4 的 分 解 ; 

(2) 利用 4 的 LU 分 解 解 下 列 方程 组 : 

@ Ax=b; ©OAx=b; @Ax=b。 

对 第 @ 题 分 析 一 下 ， 如 果 先 求 MM = A;， 再 解 Mx =b， 有 何 缺 点 ? - 
(3) 利用 4 的 LU 分 解法 求 4: ， 其 中 由 自己 选择 ， 例 如 取 n=5,10 。 


提示 :，4-: 的 第 大 列 为 方程 组 Ax =e, = (0,…,0,1,0,…,0)" 之 解 ， 4-! 的 准确 解 为 


n+2 _1 : 1 
2n+2 2 2n+2 
= 于 
2 2 
1 
4- = 2 
-11 1 
2 2 
1 _1 n+2 
2n+2 2 2n+2 


25. 3 方程 组 的 性 访 和 条 件数 


对 于 实际 问题 导出 的 方程 组 hr=<b， 系 数 矩 阵 A 和 右 端 向 量 b 往往 带 有 误差 (扰动 )， 下 面 讨 
论 4 或 的 微小 变化 对 解 x 的 影响 。 设 方程 组 


6 上 | | ” | 
= (25-20) 
2 6.09001 x 8.00001 


有 精确 解 (1,1) 。 对 矩阵 和 方程 的 右 端 项 作 微小 的 变化 ， 


a seo a (ooo 


其 解 变 为 (10,-2)7 。 扰 动 后 方程 组 的 解 面目 全 非 了 ， 真 所 谓 “ 差 之 毫 厘 ， 失 之 千里 ”。 这 种 现 

象 的 出 现 是 完全 由 方程 组 的 性 态 决 定 的 ， 即 对 A 和 5 的 扰动 是 敏感 的 。 2 
对 于 一 般 的 方程 组 A4x=b， 如 果 解 x 对 4 或 5 的 扰动 敏感 ， 就 称 方程 组 是 病态 的 ， 也 称 系 

数 矩 阵 4 是 病态 的 。 可 以 想到 ， 几 近 奇 异 的 矩阵 大 概 是 病态 的 。 为 了 定量 地 估计 x 对 4 或 b 

的 扰动 敏感 程度 ， 需 要 一 种 能 刻画 矩阵 和 方程 组 “病态 ”程度 的 标准 ， 向 量 范 数 和 和 矩阵 范 数 正 

是 这 样 的 指标 。 

定义 1 对 任意 n 维 向 量 xe R"， 若 对 应 非 负 实数 Itxll， 满 足 
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和 和 和 和 


(1) Itkl>0， 等 号 仅 当 zx=0 时 成 立 ; 
(2) 对 任何 实数 1，l1AxzlIEAITzll; 
(3) lz+yll 入 ltzll+lyll。 
则 称 ltl 为 向 量 x 的 范 数 或 模 。 
设 x=(n,%,…, 加 】， 常 用 的 向 量 范 数 有 
|x| .= max|z| 
四 =Ixl+tlslte ths 


jx] = Ye ttt 
分 别称 为 向 量 的 无 穷 范 数 ，1- 范 数 ，2- 范 数 。 这 几 种 范 数 满足 以 下 关系 : 
|zl .< lzl, < Valxl,, zl。slzl.s velxl. 

定义 2 对 任意 nn 阶 方 阵 A=(ay)、， 若 对 应 一 个 非 负 实数 | 台 ， 满 足 

(GDIUAIz>0， 等 号 仅 当 4=0 时 成 立 ; 

(2) 对 任意 实数 w,|x4|=|o| .|4; 

(3) 对 任意 两 个 阶 方 阵 A,B，IA+BH<IAIIHIBI 

(4) I4BI<IAIL。 1BI。 


则 称 I4II 为 矩阵 4 的 范 数 。 常 用 的 矩阵 范 数 有 


n 
Mi- =m dle 


n 
[Al =m Sl 


,= 内 (4 
它们 分 别 叫做 矩阵 的 无 穷 范 数 ，1I- 范 数 ，2- 范 数 ， 其 中 Ms(474) 为 A”A 的 最 大 特征 值 ， 由 
于 矩阵 的 2- 范 数 与 4A 的 特征 值 有 关 ， 所 以 又 称 为 谱 范 数 。 
在 误差 估计 中 ， 总 希望 矩阵 与 向 量 之 积 hx 满足 不 等 式 
al< 14 
但 对 任意 的 向 量 范 数 与 矩阵 范 数 ， 上 述 不 等 式 未 必 成 立 。 因 而 特别 把 满足 此 不 等 式 的 一 对 范 数 
称 为 相 容 的 。 可 以 证 明 ， 向 量 的 p - 范 数 与 矩阵 的 p - 范 数 ( p =1,2,w ) 是 相 容 的 ， 即 


|4zj <|4], -lxl, 
|4z|， 入 有， |zxl 2 
4zl sl- -lxl. 


在 使 用 范 数 时 ， 应 选用 相 容 的 矩阵 范 数 与 向 量 范 数 。 
如 何 衡 量 方程 组 的 病态 程度 ? 先 看 一 个 简单 情况 。 设 x 为 Ax=b 的 准确 解 ， 当 方程 组 右 端 
有 小 扰动 68 ， 而 4 准确 时 ， 受 扰 解 为 x+6xr ， 即 
A(x+6x)=b+6b 
因为 4x=bp， 所 以 6x= A16b， 因 此 I16xll<l 47H.1i6b1l。 
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又 由 6IEI4rllsIAILI5p1， 得 二 < 人 5 。 所 以 
Hxll pl 
16xl ANNA HL! 
xl lpll 


此 不 等 式 表明 ， 解 的 相对 误差 不 超过 b 的 相对 误差 的 lAll-HA™ ll 信 。 若 系数 矩阵 A 也 有 
小 扰动 54 ， 则 还 可 进一步 导出 更 一 般 的 误差 估计 式 
ox panna foal (6pl 
lx AN AN Ho 


1 一 站 4 人 4 一 一 一 
和 All 


这 个 不 等 式 反 映 了 解 的 相对 误差 与 4 及 的 相对 误差 的 关系 : 数 141114-1 越 小 ， 解 的 
相对 误差 也 越 小 ， 数 上 44.l147 Hl 越 大 ， 解 的 相对 误差 也 越 大 。 实 际 上 这 个 数 反 应 了 解 对 原始 
数据 变化 的 敏感 程度 ,揭示 了 矩阵 4 和 方程 组 本 身 的 性 态 , 称 之 为 方程 组 4x=b 或 矩阵 4 的 条 
件数 ， 记 作 cond(4) 二 4IIL4-1。 

cond(4) 寺 1 41144414 武大 ，4 的 病态 程度 越 严 重 。 常 用 的 条 件数 为 


cond_ (A)31A 1 1AN,; cond, dA7 Hl lA 
cond, (A)=1 A ll, -1A1,= 和 他 区 
Xu (A'A) 
分 别 成 为 矩阵 4 的 m 一 条 件数 ，1 一 条 件数 ，2 一 条 件数 。 根 据 条 件数 的 定义 ， 设 4 存在， 条 


件数 具有 如 下 性 质 : 
(1) cond(4) > lcond(4) = cond(4- ,cond(w4) = cond(4) 。 
(2) 若 4 为 正 交 阵 ， 即 过 TU = 已 , 则 

cond(U), =1， cond(A), =cond(UA), =cond(AU), 

求 条 件数 要 计算 逆 阵 的 范 数 ， 很 不 方便 ， 如 下 一 些 现象 可 作为 判断 矩阵 病态 的 参考 。 
(1) 在 用 选 列 主 元 消去 法 时 消 元 过 程 出 现 很 小 的 主 元 ; 
(2) 矩阵 4 中 元 素 间 数量 级 相差 很 大 ; 
G) 4 的 行列 式 de 满足 下 (的 


之 之 


i=! j=1 

“(4) 矩阵 的 某 些 行 (或 列 ) 近似 线性 相关 。 
洋 设 在 (25-20) 式 的 方程 组 Ax=b 中 , b 有 扰动 65 = (0,0.00001D)”, 试 计算 cond.(A), 并 
说 明 65 对 解 向 量 x 的 影响 。 


1; 


史 隶 得 4 00000 | 
cond_(4) =| 4 -|All. =6.000005x8.00001=4.8x8.00001 =4.8x10 
xl ed 。 
Ix. ~ el. 


这 说 明 右 端 项 向 量 其 分 量 的 百 万 分 之 一 的 变化 ， 可 能 引起 解 向 量 x 有 600% 的 变化 。 
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设 hr-8， 即 


这 2 9 
3000 “2000 ”1000 


4x10* 3x10* 2x105 
试验 证 其 为 病态 方程 组 ， 且 对 其 作 预 处 理 Bx=Pbp,， 使 cond (PA) «cond(4)。 
解 : cond (4)=1.9201x10",x=(-0.16667,1.3333,-0.16667)”， 若 将 a 改 为 3x10“，bb 改 为 


4x104， 拓 动量 均 为 104 量 级 ， 则 扰动 后 的 方程 组 的 解 为 
x =(-9.5000,16.5000,~2.5000)" 


A 1 
x | =| 2000 
为 3x10™ 


显然 ， 该 方程 组 为 病态 方程 组 。 2 
令 P=diag(1,103,10), 使 Px=Pbp， 其 中 


1 29 /1 
3 2 11|Pb=|2 
43 2 3 


则 有 cond(PA)=87.354 < cond(A),x = (-0.16667,1.3333,-0.16667) 。 

车 对 和 矩阵 PA 中 的 元 素 a 和 向 量 Pb 中 的 bs 给 以 10” 的 扰动 ， 则 方程 组 的 解 不 受 影响 。 显 
然 ， 经 过 预 处 理 后 的 方程 组 PBAx=Pb 是 和 良 态 的 。 
练习 4 设 Ae R”™ 是 一 个 对 称 正定 矩阵。 ,(4,) > 0 分 别 是 它 的 最 大 〈 小 ) 的 特征 值 ，Z,(Z,) 
是 对 应 4 ,(4 ,) 的 特征 向 量 ， 而且 上 zj = 上 ,上 =1。 

(1) 试 说 明 cond, (4) 与 1,4, 之 间 的 关系 ; 

(2) 方程 4x = 和 DZ 4=2D +4,Z, 的 解 是 什么 ? 

(3) 上 z=- 间 /lx 中 =? 如 果 cond;(4) 关 1， 你 能 得 出 什么 结论 ? 


P4 = 


2 -1 =-l 2(1+107™) 
练习 5 设 4=| -1 10” 10” |, b=| 10” |, 方程 组 Ax=b 的 解 为 x<=(2(1+10-™*), 
-1 10”® 10™ 10™ 
JO0%10n) 。 
(1) 计算 cond, (4)。 设 Ee R”， 而 且 上 一 <10"“|4|,, ， 验 证 方程 (4+E)(x+Ax)=5 的 解 
满足 Jar <107, 
lxl 


(2) cond. (D4D)=?， 这 里 DD=diag(10,105,10 ); 
(3) 本 练习 的 结论 说 明了 什么 ? 


25.4 迭代 法 


直接 法 一 般 适合 于 系数 矩阵 4 为 低 价 稠密 矩阵 〈 指 n 不 大 且 元 素 多 为 非 零 ) 情况 ， 而 在 
科学 计算 与 工程 设计 中 常会 遇 到 大 型 稀疏 矩阵 (n 很 大 且 零 元 素 较 多 ) 的 方程 组 ， 下 面 介绍 的 
迭代 法 ， 由 于 它 能 充分 避免 系数 矩阵 中 零 元 素 的 存储 与 计算 ， 因 此 特别 适合 后 一 种 情况 。 

解 线性 方程 组 的 迭代 法 思路 与 一 元 方程 求 根 的 选 代 法 类 似 。 首先 将 方程 组 hx=8 转化 为 等 
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价 方程 组 x=Mxr+g， 取 初始 向 量 x@) ， 按 下 述 格式 迭代 

zk = Mx +f (25-21) 
生成 向 量 序列 x 中 ,x 外,…,x 由 …, 车 此 序列 收敛 于 x ( 设 xz = (zx 有 sx) = 
(x,x;,…,)"， 若 limx;™ =2 (i=1,2,.…,n), 称 {x 中 } 收 敛 ， 且 称 x' 为 {x“} 的 极限 向 量 )， 则 
有 x" =Mx" +f， 即 x' 为 原 方程 组 之 解 。 因 此, 可 根据 精度 要 求 选择 一 个 合适 的 x*) 作为 近似 
解 , 这 就 是 解 线性 方程 组 的 迭代 法 。 式 (25-21) 称 为 迭代 格式 , M 称 为 迭代 和 矩阵 , 车 序列 {x 中 } 
极限 存在 ， 称 此 和 迭代 过 程 收敛 ， 否 则 称 为 发 散 。 需 要 讨论 的 问题 是 ， 如 何 建立 迭代 格式 ， 在 什 
么 条 件 下 迭代 过 程 收 公 ， 如 何 进行 误差 估计 ， 如 何 加 快 收敛 速度 等 。 
25.4.1 和 雅 可 比 ( Jacobi ) 迭代 法 和 高 斯 - 赛 德尔 (Gauss-Seidel ) 迭代 法 


例 1 用 进 代 法 求解 方程 组 


10x -x, —2% =7.2 

—XA+10x, ~—2x, =8.3 

一 A 一 罗 +5% =4.2 
其 精确 解 为 x =(1.1,1.2,1.3)”。 


解 ;方程 组 的 等 价 形式 为 


=0.1n +0.2x +0.83 


n=0.1x, +0.2x+0.72 
=0.2n +0.2x, +0.84 


建立 迭代 格式 为 


2 = 0.1x0 +0.2x09 +0.72 
x = 0.1xtb +0.2x00 + 0.83 (25-22) 
XD =0.2x09 +0.2x09 +0.84 


给 定 初始 向 量 *"o =(0,0,0)* ， 按 上 式 进行 迭 代 ， 得 迭代 序列 如 表 25-2 所 列 。 
表 25-2 解 的 迭代 序列 


je -| 


四 


此 和 迭代 法 为 求解 方程 组 的 雅 可 比 迭 代 法 。 


当 上 -12 时 ， 有 | 


<10s ， 得 近似 解 向 量 r"02 = (1.099998,1.199998,1.299997)。 我 们 称 
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我 们 应 当 尽量 利用 最 新 信息 ， 如 计算 ze 时 ， 用 xt ， 而 不 要 用 xD ， 计 算 允 和 时 ， 
用 允 中 和 双 臣 ， 不 要 用 x 和民 等 等 。 则 迁 代 格式 (25-22) 变 为 


x =0.1x +0.2x® +0.72 
xD = 0 +0.2x° +0.83 (25-23) 
x =0.2xk +0.2x0" +0.84 


(4) _ 
仍然 用 初始 向 量 x = (0,0,0) 进行 迭代 ， 直 到 k=8 时 ， | E 村 i 我 们 称 迭 


代 格 式 〈25-23) 为 求解 方程 组 的 高 斯 - 赛 德尔 迭代 法 。 
将 迭代 格式 “25-22〉 推 广 到 nn 阶 方程 组 ， 且 设 a 0,i=1,2,…,n， 则 有 


CY ax®d +b) 
A j=l,j#i A i=1,2,.…,n (25-24) 


这 是 雅 可 比 迭代 法 的 分 量 形式 ， 即 


(k+l1) = 


1 
(oe -a + ) 
1 


和 二 Tat 加 a Te a +b, ) 
4 
. Gt) 三 (at aax 5 a ns) + b., ) 
从 而 得 到 雅 可 比 迭 代 法 的 矩阵 形式 
x = BIx® + fk=0,1,2,.…. : (25-25) 
其 中 ， 
b 0 _ Ga _ Un 
1 4 4 
b, _ Ql 0 a C2n 
万 =| a B,=| oa, Ay 
疝 Oo 一 一 mn2 0 
0 
Ql 221 0 
车 记 D= 人 ， L=-ia: az 0 2 
Om Cnl Cn2 Cn n-l 0 
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0 az aa an 
0 az G2 
U=- a 
0 Gln 
0 


其 中 DD 为 对 角 阵 , 工 为 严格 下 三 角 阵 ， 为 严格 上 三 角 阵 , 则 4=D-L-U 。 因 为 a, 关 0， 故 
D "存在 ,于 是 有 f,=D"b 和 
B,=D"(L+U)=1-D"'A (25-26) 
我 们 称 式 (25-25)〉 为 雅 可 比 和 迭代 法 ， 了 称 为 雅 可 比 和 迭代 和 矩阵。 
类 似 地 ， 将 迭代 格式 〈25-23) 推广 到 阶 方程 组 的 情形 ， 且 设 a, #0,i=1,2,…,n， 有 


DX Gy a py Gx + 已) 
xD = j=i+l 网 i=1,2,.…,n (25-27) 


这 是 高 斯 - 赛 德尔 迭代 法 的 分 量 形式 ， 其 矩阵 表示 形式 为 

(tr = Dr (天 人 + Ur) +5) 
经 整理 有 

x = Bx + fos, k=0,1,2,.… (25-28) 
其 中 ，fos =(D-L)*'b 和 


Bos=(D-L)'U (25-29) 


我 们 称 式 〈25-29〉 为 高 斯 - 赛 德 尔 迭 代 法 (简称 G-S 和 迭代 法 )， 式 〈25-29) 为 高 斯 - 赛 德尔 迭代 
和 矩阵。 


分 别 用 雅 可 比 迭 代 法 ， 高 斯 - 赛 德尔 欠 代 法 解 方程 组 。 
2x ~ =1l 
-为 二 2x2 一 为 =0 
一 妈 十 2 为 一 双开 
一 为 +2x4 =0 
迭代 初 值 取 x = (1,0,1,0) ， 人 允许 误差 e =10<。 
解 : 二 种 不 同和 迭代 法 的 迭代 结果 见 表 25-3。 

表 25-3 ” 雅 可 比 迭 代 法 ，G-S 迭代 法 的 迭代 结果 
> 
a | mm | | 
ova | 2 | rm | rm | rm | 


顺 辆 图 分别 用 雅 可 比 迭 代 法 和 高 斯 - 赛 德尔 迭代 法 计算 下 列 方程 组 ， 均 取 相 同 的 初 值 xo) = 
(LI ， 观 察 其 计算 结果 。 
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为 一 9z 一 102 = 一 | 和 70 ~—x,—3%=—1 10x + 4x, 十 5 入 3 = 一 | 
(D41-9x +%+5% =0 (2)1- 和 +2z +425 =0 (3)44x +10x%, +72 =0 
8X +72D 二 为 =4 —3X +4x,+15x, =4 Sx+7x,+10%, =4 


解 : 对 方程 组 (1)， 其 精确 解 为 x* =(-0.4511,1.2383,-1.0596)*”， 雅 可 比 迭 代 法 得 到 
x =(-7666,7023,-3327)', 高 斯 - 赛 德尔 迭代 法 得 到 x@9 =(-10978,-92697,736077)* ， 两 种 迭 

对 方程 组 (25-2)， 其 精确 解 x* = (-0.0984,-1.1639,0.5$47)7 ， 两 种 迭代 法 的 终止 条 件 是 
|ee 2 - z| <10? 。 雅 可 比 迭 代 法 迭代 了 125 次 ， 而 G-S 迭代 法 仅 迭 代 9 次 。 两 种 方法 均 收 
敛 ， 但 收敛 速度 不 同 ， 一 个 快 ， 一 个 慢 。 

对 方程 组 (25-3)， 其 精确 解 为 x” = (--0.3658,-0.5132,0.9421)7 ， 
对 Jacobi 迭代 : x09 =(-0.35x10”,-0.41x10”,-0.43x10")， 

xco0 = (0.38x10)0,0.45x10)0,0.47x10107 
对 G-S 选 代 : 给 出 达到 预定 精度 |x*? -x 中 <10? 的 最 后 两 次 迭代 值 ， 
xG9 = (-0.366,-0.5410.943)7 ， x" = (-0.366,--0.514,0.942) 

可 见 ， 用 相同 和 迭代 初 值 ， 求 解 同 一 个 方程 组 ， 雅 可 比 和 迭代 发 散 ， 而 G-S 迭代 仅 用 7 次 达到 预 
定 精度 。 
晶雅 可 比 迭 代 法 与 G-S 迭代 法 的 比较 。 
分 别 用 雅 可 比 和 迭代 法 与 G-S 迭代 法 解 下 列 方 程 组 : 


入 + 了 加 + 为 =0 


XA+N%+5 i 2 i 
(1) | -x +%, =-7 (2) ph + +7 05 
A+2% =-17 站 可 
二 为 十 一 入 十 为 = 一 2.5 
27 2 
解 ， 取 迭代 初 值 xo = (0,0,0)5 ， 和 迭代 结果 见 表 25-4。 
表 25-4 迭代 结果 


x = (1.995666， -5.002442,3.001062) ，E=107 发 散 ，E =I10 
发 散 ，e =107 x =(1.2,—4) ,， e=10° 


实验 9 表明 : 牙 可 比 迭代 法 和 G-S 迭代 法 可 能 同时 发 散 ， 也 可 能 同时 收敛 ， 但 一 个 快 ， 
另 一 个 慢 ， 可 能 一 个 收敛 ， 而 男 一 个 发 散 。 它 们 的 收敛 范围 并 不 重合 。 但 是 两 者 都 收敛 时 ,在 
很 多 情况 下 G-S 迭代 法 确实 比 雅 可 比 迭 代 法 收敛 快 得 多 。 


#0 wm [2 人 


0.4 0.2 
(1) 任意 取 定向 量 f 及 初始 向 量 x0 ， 利 用 (25-21) 式 作 和 迭代。 向量 序 列 x” 是 否 收敛 ?对 不 同 的 
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向 量 f 及 x 中 做 同样 的 观察 。 
(2) 和 矩阵 M 的 特征 值 是 什么 ? M 是 否 相似 于 对 角 阵 ? 
(3) 你 能 和 否 给 出 迭代 向 量 序列 x" 的 通 项 公式 ?你 能 和 否 利用 通 项 公式 解释 前 面 观察 所 得 出 的 结 
论 ? 
1 -1 0 
(4) 48 吧 W =， mw-| 0 


(5) 根据 以 上 结论 ， 回 答 以 下 问题 : 
@ 给 出 向 量 列 x” 的 通 项 公式 ， 你 能 否 由 此 给 出 迭代 〈25-21) 收敛 的 条 件 ?收敛 速度 由 
什么 决定 ? 
@@ 如 果 矩 阵 M 满足 |M| 、<1 或 az, <1， 你 能 否 确 定 迭 代 〈25-21) 一 定 收敛 ? 


| 重 做 问题 (0)，(2)，(3)。 


练习 7 4 证 4-| 3 | 5 任意 选取 ， 将 方程 组 hr-8 改 成 多 种 等 价 的 形式 *=Mx+f， 观 


察 迁 代 是 否 收敛 ?对 收敛 的 迭代 格式 ， 比 较 它 们 收敛 速度 的 快慢 。 
1 2 -2 2 -1 1 
1 1 1 1 1 

22 1 1 1 2 


25.4.2 ”迭代 法 的 收敛 条 件 


. 现在 讨论 一 般 迁 代 格 式 〈25-21) 收敛 的 条 件 。 设 x 是 原 方程 组 Ax=b 的 人 则 它 满足 
等 价 方程 组 


练习 8 分 别 取 A= 和 4= ， 回 答 练 习 7 同样 的 问题 。 


x =Mr + 了 (25-30) 
选 代 序列 {x 中 } 满 足 (25-21)， 即 
xu Mr +f (25-31) 


令 e 中 =x 中 -x"， 则 {x 中 } 是 否 收 仑 于 x* 等 价 于 误差 向 量 序列 {e 疏 } 是 否 收敛 于 0， 
式 (25-31) 减 去 式 (25-30) 得 
ety -Met, 大 =0.1… 

因此 E 中 =MeW ?= Re (0) 

因为 x 是 任 取 的 ，€ 一 并 .是 任意 向 是 ， 因此 e 多 -0 的 充 要 条 件 是 Mt+t 一 0。 

由 以 上 分 析 可 见 ， ee se MM 的 特性 。 经 过 严格 的 证 明 可 得 如 
下 关于 和 迭代 收敛 的 基本 定理 。 

定理 1 对 任何 初始 向 量 x 及 常 向 量 户 迭代 过 程 zt) = Mx + 收敛 的 充分 必要 条 件 
是 . 

p(M)= max max|4,|<1 

其 中 4,(i=1,2,…,n) 为 算 阵 MM 的 特征 值 。 PCM ) 称 为 矩阵 M 的 谱 半 径 。 

又 因为 矩阵 的 谱 半径 不 超过 它 的 〈 任 一 种 ) 范 数 ,所 以 若 |M|= 4 <1,， 则 选 代 公式 (25-31) 
收敛 ， 且 有 
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| | < Take” -x (25-32) 


可 见 g 越 小 ， 收 敛 越 块 。 

实际 上 ， 条 件 pCM)<1, 上 MT=4q <1 只 能 在 构造 出 M 以 后 来 检验 ， 我 们 更 需要 直接 根据 系 
数 矩 阵 4 来 判断 迁 代 的 收敛 性 。 常 用 的 判断 条 件 有 

(1) 车 4 是 严格 对 角 占 优 的 ， 即 |a;|> |ayb(i=4…,n)， 则 Jacobi 和 G-S 迭代 均 收敛 ; 


(2) 若 4 对 称 正定 ， 则 G-S 迭代 收敛 。 
”停止 迭代 条 件 的 局 限 性 ， 
用 G-S 和 迭代 法 求解 方程 组 豆 ,rx =5, 其 中 五 ,,b 的 元 素 分 别 为 


1 4 
h, = ,b=Yh ， (i,j=1,2,3,4 
J i+j-—l i 之 uy (i J ) 


解 :方程 组 的 准确 解 为 =(1,1,1,1) ， 用 G-S 迭代 法 求解 ， 取 初 值 x® =p ， 按 迭代 停止 的 条 
件 ， |ze = ze <103 时 停止 迭代 ， 得 
xz(@) =(0.9969761,0.9908074,1.067935, 0.9389038)™ 


误差 向 量 为 

Xx’ -X's = (0.0030239, 0.0091926,—0.067935,0.061092)™ 
每 一 分 量 的 绝对 误差 均 大 于 10”。 由 此 可 见 , 满足 迭代 终止 条 件 是 并 不 能 保证 近似 解 的 精度 也 
达到 g 。 迁 代 终 止 条 件 来 源 于 误差 估计 式 25-32)， 而 式 〔25-32) 只 能 保证 ， 当 4< 也 时 ， 


x -x |<e ， 必 有 x" 一 x 中 <e: 当 <q <1 《 即 收敛 较 慢 ) 时 ， 给 不 出 x 精度 的 可 
靠 信息 。 

25.5 值得 进一步 研究 的 问题 
问题 1 《高 斯 消去 法 的 数值 稳定 性 实验 ) 观察 和 理解 高 斯 消 元 过 程 中 出 现 小 主 元 即 |* 
时 ， 引 起 方程 组 解 的 数值 不 稳定 性 。 设 方程 组 Ax=bp， 其 中 


很 小 


0.3x10 59.14 3 1 59.17 
5.291 -6.130 -1 2 46.78 
1 二 多 b 一 
6 11.2 9 5 2 1 
1 2 1 1 2 ， 
10 -7 0 1 8 
-3 2.09999999999999 6 2 5.90000000000001 
(2) 由 = » b,= 
5 | 5 -1 5 
0 1 0 2 1 
分 别 对 以 上 两 个 方程 组 


(1) 计算 矩阵 的 条 件数 ， 判 断 系数 矩阵 是 良 态 的 还 是 病态 的 ? 
(2) 用 高 斯 选 列 主 元 消去 法 ， 求 得 蕊 和 77 及 解 向 量 %,x%e R*; 


270 


(3) 用 不 选 主 元 的 高 斯 选 列 主 元 消去 法 求 得 L,U 和解 向 量 志 ,入 ER4; 

(4) 观察 小 主 元 并 分 析 对 计算 结果 的 影响 。 
问题 2 (病态 线性 方程 组 的 特点 ) 给 定 三 个 n 阶 线性 方程 组 Ax=b, 其 中 A 的 元 素 ayGi, j=1,…,n) 
与 阶 数 n 分别 为 

(D mw=(i+j-D , n=3,4,.…,9; 

2) ay=(i+tj) ， n=3,4,5; 


(3) a, a ， n=3,4,5,6。 
+j-l | 


5 的 元 素 刀 = 六 mi (i=1…,n)， 及 其 准确 解 为 x =(1,1…,1)”， 用 选 列 主 元 法 分 别 求解 上 列 方程 


组 ， 并 输入 各 步 主 元 ， 解 释 计 算 结 果 出 现 的 异常 现象 。 
问题 3 以 希 尔 伯 特 (Hilibert) 矩阵 为 例 ， 研 究 处 理 病 态 问题 可 能 遇 到 的 困难 。 
希 尔 伯 特 矩阵 的 定义 是 


Lo 1 
2 3 n 

1 1 1 1 

2 3 
Hl 1 1 1 
| 3 4 5 n+2 
es ME 

n n+l n+2 2n-1 


它 是 一 个 对 称 正定 逢 阵 ， 而 且 cond(,) 随 着 的 增加 迅速 增加 。 其 逆 甜 阵 太 ”= (a ,) ， 这 里 


本 (-07” (nt+i-1)!(n+j-1)! 
rj-D-D)(-D (7))(n-))! 

(1) 画 出 In(cond(H,)) ~n 之 间 的 曲线 (可 以 用 任何 一 种 范 数 )。 你 能 猜 出 In(cond(H,))~n 
之 间 有 何 关系 吗 ? 提出 你 的 猜测 并 设法 验证 。 

(2) 设 DD 是 五 ,的 对 角 线 元 素 开 方 构成 的 矩阵 。 片 , = D-'H,D-!， 不 难看 出 应 ,仍然 是 对 称 
和 矩阵， 而 且 对 角 线 元 素 都 是 1。 把 H, 变 成 应 的 技术 称 为 预 处 理 。 画 出 
In(cond( 入 ,)/cond(H,)) ~n 之 间 的 曲线 (可 用 任何 一 种 范 数 )。 你 能 对 于 预 处 理 得 出 什么 印象 ? 

(3) 对 于 4<n<12， 给 定 不 同 的 右 端 项 6， 分别 用 x = HH-'b,x = 冯 -1D"'b,x, = 三 -区 
求解 有 H,x =5 ， 比 较 计 算 结果 。 

(4) 取 不 同 的 并 以 五, 的 第 一 列 为 右 端 项 向 量 b, 用 G-S 迭代 法 求解 总 ,z* =b， 观察 其 收 
化 性 。 最 后 你 能 对 于 有 关 希 尔 伯 特 和 矩阵 的 计算 得 出 哪些 结论 ? | 
问题 4 探索 高 斯 选 主 元 消去 法 增长 因子 的 规律 。 设 Ae R”™ ， 而且 max|a,,|=1 。 利 用 高 斯 选 


主 元 消去 法 对 其 完成 消去 过 程 ， 令 p(4,)=max|a 由 |, 这 里 a 是 消去 过 程 中 4 的 第 (个 
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元 素 。 首 先 固定 n(5<n<10)， 选 择 k(> 30) 个 随机 和 矩阵， 计算 每 个 p(4,n)， 然 后 选 出 其 中 最 
大 的 一 个 ， 记 之 为 p(n) ， 它 被 成 为 近似 的 增长 因子 。 画 出 p(n) ~n 之 间 的 关系 曲线 ， 能 不 能 
提出 你 对 它们 之 间 关系 的 猜测 ? 

问题 5 《和 迭代 法 收 全 速度 实验 ) 用 迁 代 法 求解 方程 组 Ax=b， 其 Ae Rzo ， 它 的 每 条 对 角 元 素 


是 常数 ， 为 
3 -| 
4 
二 
2 4 
BD el 
i 2 2 
a 
ee 
2 
le 
4 2 


(1) 选取 不 同 的 初始 向 量 x 和 不 同 的 方程 组 右 端 项 向 量 bp， 给 定 迭代 误差 要 求 ， 用 雅 可 
比 沈 代 法 和 G-S 和 迭代 法 计算 ， 观 测 得 到 的 选 代 向 量 序列 是 否 均 收敛， 记录 和 迭代 次 数 ， 分 析 计 
算 结果 并 得 出 你 的 结论 ; 

(2) 取 定 右 端 项 向 量 b 和 初始 向 量 x 中 ， 将 4 的 主 对 角 线 元 素 成 倍增 长 若干 次 ， 非 主 对 角 
线 元 素 不 变 ， 每 次 用 雅 可 比 迭 代 法 计算 ， 要求 迁 代 误差 满足 |x*” - *@| <10， 比 较 收敛 束 
度 ， 分 析 现象 并 得 出 你 的 结论 。 
问题 6 〈 雅 可 比 迭 代 法 与 G-S 迭代 法 的 收敛 性 ) 研究 用 雅 可 比 迭代 法 和 G-S 和 迭代 法 解 下 列 广 
程 组 Ax=b 的 收敛 性 ， 验 证 分 析 是 否 正 确 ， 并 观察 右 端 项 对 迭代 收敛 是 否 有 影响 。 


6 2 -1 -3 100 
(1) 4=| 1 4 -2|, b=|2| ,5b,=|-2001; 
-3 1 4 4 345 


1 0.8 0.8 3 5 
(2) 4=|08 1 08|, b=|I2|, b,=| 0 
0.8 0.8 1 1 -10 


1 3 4 
> + 
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实验 二 十 六 数值 积分 与 数值 微分 


积分 与 微分 是 在 高 等 数学 中 学 过 的 最 基本 的 运算 之 一 。 一 方面 它们 是 非常 重要 的 数学 工 
具 ， 如 概率 论 基础 ， 另 一 方面 它们 在 实际 问题 中 也 有 许多 直接 的 应 用 。 

在 高 等 数学 中 ， 仅 对 简单 的 或 特殊 的 情况 提供 了 函数 的 积分 的 解析 表达 式 。 如 对 函数 在 
[a,b] 上 的 积分 ， 理 论 上 可 以 使 用 牛顿 一 莱 布 尼 芯 公式 


[Ef =FO-Fa 


计算 。 只 要 能 找到 f(x) 的 原 函 数 F(xz) ， 问 题 就 迎刃而解 了 。 但 对 很 多 实际 问题 这 种 解析 的 方 
法 已 经 无 能 为 力 了 ， 常 常会 遇 到 如 下 的 困难 。 
(1) 找 不 到 被 积 函 数 的 原 函 数 F(x)， 如 : 
f=1/Inx, fx)=sinx/x, foO=e™*, f(x)=1/Al-k*(sinx)) 
(2) 虽然 找到 了 原 函 数 ， 但 它 比 被 积 函 数 复杂 得 多 ， 而 且 有 时 难以 给 出 最 后 的 数值 结果 。 
如 在 积分 表 中 可 以 查 到 不 定 积分 的 解析 式 
全 OM ee A a Rs V2x 
Q-x itx 4V2 1 一 她 2V2 1+x 
当 积 分 限 为 x=+l1 时 ， 原 函数 中 第 1 项 无 定义 ， 得 不 到 定 积 分 值 。 
(3) 除 一 些 特殊 的 无 穷 积 分 外 ， 通 常 很 难 求 无 穷 积 分 的 值 。 
(4) 被 积 函数 没有 有 限 的 解析 表达 式 ， 而 以 表格 的 形式 给 出 。 
鉴于 以 上 情况 ， 采 用 数值 的 方法 计算 定 积分 就 很 有 必要 且 很 有 效 。 对 于 积分 
11=] fdx (26-1) 


所 谓 用 数值 方法 求 定 积分 值 ， 就 是 用 被 积 函数 f(x) 在 区 间 [a,b] 上 的 一 些 节点 x 处 的 函数 值 
Cox) 的 线性 组 合 


+C 


1 = Af C0) 
k=0 
去 近似 1(f) 。 其 中 羽 为 求 积 节点 ，Ah 为 相应 的 求 积 系 数 ，7,( 了 ) 为 近似 求 积 公式 。 一旦 元 ,A 
确定 ， 则 近似 求 积 公式 7, 也 就 确定 了 。 
26.1 ”数值 积分 法 

数值 积分 法 ， 是 从 近似 计算 的 角度 ， 采 用 某 种 数值 过 程 来 求 出 定 积分 的 近似 值 。 

我 们 知道 定 积分 | f(x)dx， 但 积分 区 间 (a,b) 是 有 限 区 间 ， 被 积 函 数 f(x) 是 (a,b) 上 的 有 
界 函 数 时 ， 在 几何 上 可 以 解释 为 在 x*=a 和 x=b 之 间 函 数 了 (x) 图 形 下 的 面积 。 我 们 用 一 系列 
分 点 a= 为 < 及 < 为 <…< 罗 ==b 将 区 间 (a,b) 分 成 几 个 小 区 间 : [和 区] [6 加 ],…[xa, 加 ]， 并且 


nl? Rn 


在 各 小 区 间 [x,,x] 上任 取 一 点 &， 设 相应 的 函数 值 为 f(E,), 于 是 得 到 一 组 以 hh =x -为 底 ， 
213 


以 f(&) 为 高 的 和 矩形， 其 面积 为 hf(E,) 。 然 后 我 们 将 这 些 面 积 相 加 起 来 ， 便 得 到 和 式 
1 = Sh) 
设 h 是 n 个 小 区 间 中 的 最 大 长 度 h=max{h} 。 如 果 对 于 区 间 的 任何 一 种 分 法 和 & 的 任何 


一 种 选择 ， 当 分 点 无 限 增多 且 h -0 时， 存在 共同 的 极限 lim 1, = lim 》 ,hf(&)=7， 则 此 极 
天 一 ?oo 严 一 oo i 


限 即 是 定 积分 |"f (Xdx。 

从 定 积分 的 定义 中 ， 我 们 显然 可 以 得 到 一 种 近似 的 计算 法 。 例 如 ， 我 们 可 以 取 分 点 不 为 
区 间 (a,b) 的 nn 个 等 分 点 ; 入 =a+ 座 (h=22) ,并 取 名 为 各 小 区 间 的 两 端点 之 一 ,或 者 取 名 为 
小 区 间 的 中 点 ， 那 么 就 得 到 矩形 积分 公式 〈 或 称 为 原始 积分 公式 ) 


= f(atih) (26-2) 
i=0 

1, =hY, f(a+ih) (26-3) 
i=l 

MACB) (26-4) 
i=] 


其 中 公式 (26-3) 又 称 为 中 点 积分 公式 。 
如 果 我 们 不 用 甜 形 而 改 用 梯形 , 那么 我 们 就 可 以 得 到 定 积分 的 一 个 较 好 的 近似 一 一 梯形 积 
分 公式 
1 2 DG) + fF) 
总 之 ， 各 种 各 样 的 数值 积分 法 都 是 利用 被 积 函数 的 一 种 线性 组 合 来 近似 积分 ， 即 
[=D wf) <) fdx (26-5) 
如 上 所 述 , 数值 积分 法 是 用 一 有 限 项 的 求 和 计算 来 代 蔡 积分 计算 , 这 之 间 就 存在 一 定 的 误 


差 。 这 误差 来 源 于 如 下 两 个 方面 : 
(1) 产生 于 用 有 限 项 之 和 来 等 于 积分 的 近似 值 中 ， 这 时 


| far=L +E=Ywf)+E | (26-6) 
这 个 误差 巨 称 为 截断 误差 ， 
(2) 产生 于 我 们 在 计算 和 式 工 = wf 0) 时 是 近似 计算 ， 而 非 精确 计算 。 


i=l 


1 = +R=Y Wwf")+R 
这 个 误差 R 称 为 舍 入 误差 。 
因此 ， 总 的 误差 是 (Wdx-[=E+R。 
对 于 一 种 数值 积分 法 , 我 们 有 必要 具体 地 分 析 它 的 误差 。 在 本 实验 中 ,我 们 只 讨论 截断 误 
差 。 
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26.2 ”梯形 求 积 公式 
在 实验 五 和 26.1 中 提 到 过 这 个 方法 ， 在 此 我 们 具体 地 推导 它 的 求 积 公式 ， 并 分 析 它 的 堆 
断 误差 。 


26.2.1 梯形 求 积 公式 


对 于 定 积分 (26-1)， 我 们 用 一 系列 等 分 点 4= 罗 < 为 < 厂 <…< 和 = 尺 《也 可 以 不 是 等 分 

点 ， 但 其 方法 原则 一 样 )， 将 区 间 [a, 刀 分 成 有 个 小 区 间 [xm 和]， [4,x2]，…, [xz 如] 每 个 小 区 间 
[X44] 的 长 度 h=(b 一 a)/n， 分 点 的 坐标 为 n=a+t 计 (i=0,b…,n)。 
在 每 个 小 区 间 [x,,,x1 上 ， 我 们 用 通过 点 (x, f(x), (%,f(%)) 的 直线 来 近似 函数 的 弧 线 ， 
即 
f(x)— fx) 

Xi ~ Xl 
且 以 此 梯形 面积 来 近似 小 区 间 上 的 积分 。 不 难 求 出 这 个 梯形 面积 为 
AACA 

2 


R(x)= fx)+ (一 后 = 了 CD (x XEN) (26-7) 
T=|, RDdz 
以 此 作为 小 区 间 上 积分 的 近似 值 
太 7codz=2[7C6D+7Go (68) 
这 就 是 梯形 的 公式 。 
又 上 f09dx= 多 J 7(Codz， 因 此 ， 将 这 些小 区 间 上 积分 的 梯形 近似 相 加 起 来 ， 便 得 到 
熟知 的 梯形 求 积 公式 
far= H+ flat+h+ f(a+2h)+.+ fat (n-Dh) + (26-9) 
即 
7 = 过 fariD+ 人 Ef)+ 6) 6= 一 (26-10) 


26.2.2 ”误差 估计 和 收敛 性 


如 果 ftx) 是 线性 函数 或 者 是 项 点 在 (x,f(%,)) 处 的 分 段 线性 函数 , 则 /oa 是 与 结 点 在 苹 ， 瑟 
处 的 线性 插值 多 项 式 一 致 ， 此 即 f(x) ~ B(x)=0， 于 是 其 截断 误差 


BE= [f(0)-ROJdx=0 
a 


故 梯形 求 积 公式 对 线性 函数 〈 即 一 次 多 项 式 ) 是 精确 的 。 
对 于 非 线性 函数 fx)， 梯形 公式 在 小 区 间 [x,,%]. 上 是 用 线性 插值 函数 T(x) 代替 f(x)。 容 易 


得 到 f(x)=T(x)+ LE 一 入 -DGX 一 为 )， G1 € (Hh), 则 
oa "(6G > 
J UW-TOdx= Le | Gd )dx= -Sf 


梯形 求 积 公 式 〈26-10) 的 误差 可 用 
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RG,T)AI-T, HJ fdx-T,| (26-11) 


给 出 。 显 然 
RT) < SNE) 


记 M = max17 (01， 它 常 可 以 粗略 地 估 出 。 又 1=2。 


， 于 是 


二 
R(T) < Mlb-a) (26-12) 


(26-12) 式 表明 , 梯形 公式 (26-10) 的 误差 是 与 甩 同 阶 的 。 若 feC?*(a,b) ,由 (26-11)，(26-12) 
式 可 得 


lm hn 和 
其 中 CC 为 非 零 常数 。 
用 梯形 公式 计算 积分 1 = 下, 了 dx。 取 4 位 有 效 数字 。 
解 ， 由 梯形 公式 得 
_1-0.6 1 1 


了 = 了 了 [ 


天 + 一 一 ]=0.2470588 。 
2 1+0.6- 1+1 


26.3 ”辛普森 (Simpson ) 公式 


梯形 求 积 公 式 的 基本 思想 是 : 在 每 个 小 区 间 上 采用 线性 函数 近似 被 积 函 数 f(x)。 如 果 我 们 
不 用 线性 函数 而 改 用 二 次 多 项 式 来 近似 f(x), 那么 就 可 以 得 到 在 实际 计算 中 常用 的 辛普森 求 积 
公式 。 

用 分 点 a=% << 加 < … < mi<m =b 将 区 间 [a,b] 分 成 27 等 份 ， 每 个 子 区 间 长 
Ax= <， 直线 x=xG= 012…,2m 与 明 线 y= f(x) 的 交点 分 别 为 1x) 。 

现 将 过 Fox ,Foo), fxDG=1L12…,21-D， 三 点 的 曲线 段 用 过 此 三 点 的 二 次 多 项 式 
y=ax+bx+c 来 近似 ， 然 后 计算 二 次 多 项 式 梯形 的 面积 A。 注意 到 ， 如 果 y 轴 平 移 ， 二 次 
多 项 式 梯形 的 面积 是 不 会 改变 的 。 


故 不 妨 设 =0， 并 令 h= 和 4 
2n 


， 则 
A=| ,x thxta)dr=2], (x te)dx 
ES Ca +6c,) 


Xf(x1)= aih’ —bht+c, f(x)=c,f (xn)= ah? +bhtc:, 故 
f+ f(x)=2ah +20, 
于 是 


A= SUf G1) + fx) + 4f (5)] 
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b-a 


[f (x) + f (Xn) +4f(%)] 


6n 
则 
2n—l n n~l A 
5, =》4 -和 fA)+FO TA Ft) +2d fw),h= 了 (26-13) 
i=l k=1 天 =1 
式 〈26-13) 称 为 辛普森 公式 ， 也 称 为 抛物 线 公 式 。 
类 似 地 可 以 求 出 辛普森 公式 “26-13〉 的 误差 R(f,5,) 为 
2 a 
R(f,S,) 4 f(x)dx—5, -| of 时 5e (a,b) 
即 有 
h4 
R(f%S,) ST Mb -0) (26-14) 


其 中 MM， = max 1f™ (2)| 。 由 26-14) 式 ， 不 难得 出 辛普森 公式 对 于 最 高 次 数 为 3 的 多 项 


式 是 精确 的 ， 且 误差 是 与 所 同 阶 的 。 
分 别 用 梯形 公式 和 辛普森 公式 计算 积分 了 = 1 cosxdx， 取 4 位 有 效 数 字 。 
解 : 分 别 用 梯形 公式 和 辛普森 公式 计算 ， 计 算 结 果 见 表 26-1。 
表 26-1 计算 结果 
EC A 现 让 2 天 开 惠 天 5 三 区 也 


积分 的 精确 值 为 1=12.0703 。 可 以 看 出 , 辛普森 公式 明显 优 于 梯形 公式 ; 若 要 求 € =10*， 
则 对 于 辛普森 公式 ，n = 64 即 可 终止 计算 ， 而 梯形 公式 n=256 仍 未 达到 要 求 。 


26.4 高 斯 (Gauss ) 求 积 公式 


26.4.1 求 积 公式 的 代数 精确 度 
从 前 面 的 梯形 求 积 公式 和 辛普森 公式 ， 我 们 可 以 看 到 ， 这 两 个 近似 求 积 公式 都 可 以 写成 
L -YA f(z) 其 中 ，A, 是 与 函数 f(x) 无 关 的 常数 , 梯形 公式 和 辛普森 公式 的 区 别 仅 在 于 4 的 


取 值 不 同 ， 它 们 分 别 对 于 一 次 多 项 式 和 不 超过 三 次 的 多 项 式 精 确 成 立 。 

代数 精确 度 是 衡量 求 积 公式 精确 度 的 一 种 指标 ， 它 用 罕 函 数 作为 被 积 函 数 Ax)， 以 近似 积 
分 与 精确 值 是 否 相 等 作为 精确 度 的 度量 标准 ， 有 如 下 定义 : 
定义 设 f(x)=x*， 用 (26-15) 式 计算 1=[ fdx ， 若 对 于 k=0,1…,m 都 有 I, =， 而 当 


k=m+1 时 ZT， 则 称 工 的 代数 精度 为 m。 
容易 验证 ,梯形 公式 (26-10) 的 代数 精度 m=1， 辛普森 公式 (26-13) 的 代数 精度 m=3。 
前 面 几 种 求 积 公式 的 共同 点 是 将 积分 区 间 等 分 , 将 分 点 作为 插值 节点 , 用 分 段 插 值 多 项 式 
代替 f(x) 作 积分 ， 因 而 节点 数 刀 给 定 后 ， 节 点 x (k=1,2,…,n) 是 固定 的 ， 要 构造 求 积 公式 只 需 
确定 〈26-15) 式 中 的 系数 A 即 可 。 这 样 做 虽然 简单 ， 但 代数 精确 度 较 低 。 下 面 介绍 的 方法 取 
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消 区 间 等 分 的 限制 ，n 给 定 后 同时 确定 节点 x 和 系数 A ， 使 代数 精确 度 尽量 高 。 
26.4.2 ”高 斯 公式 


对 于 n=2 的 情况 ， 因 为 只 有 2 个 节点 ， 所 以 按照 固定 节点 的 办 法 只 能 用 梯形 公式 ， 代 数 
精度 为 1。 
例 1 在 [-11] 上 构造 的 求 积 公式 
Lf] =Af 0%) + hf) 
解 : 取 罗 =-l, =1,h 和 =A 入 =1 ， 即 得 
| Lf= /CD+/0) 
容易 验证 ， 它 具有 1 次 代数 精度 。 
而 用 下 面 的 方法 在 区 间 内 适当 地 选择 节点 ， 就 可 以 得 到 代数 精度 为 3 的 公式 。 
区 间 [a,] 经 过 适当 的 变量 代 换 可 以 化 为 [-1,1] ， 因 而 只 需 计算 1=| f(x)dx 。 要 构造 形 
如 
hlf] =Af() + hf(n) 
的 求 积 公式 ， 确 定 xx, 全, 使 的 代数 精度 为 3。 按 照 代数 精度 的 定义 ， 要 求 对 于 
f(x)=Lx,x ,x 有 


[fadx=Af) +hf() (26-15) 
成 立 。 将 /C2 代入 计算 可 得 z 
4+4=2 
4 十 4 总 =0 
fe (26-16) 
4 好 +4 妈 =0 


解 出 x = 一 即 得 n=2 的 高 斯 公式 


1 

琅 咏 = 万 "4= 久 =1 
G -7C +1CD) (26-17) 

进一步 提高 精度 有 两 条 途径 ， 一 是 增加 n， 可 以 证 明 ，G, = 六 hf(x,) 的 代数 精度 可 达 


2n -1， 但 是 要 求解 形 如 〈26-16) 式 的 更 复杂 的 非 线 性 方程 组 ，n 较 大 时 实用 性 不 大 ; 二 是 先 
将 区 间 (a,b) 分 小 ， 在 小 区 间 上 用 G, ， 有 具体 步骤 如 下 : 


将 区 间 (a,b)m 等 分 ， i xz 二 a+kh,k=0,1…,m 作 变换 x= i =t， 则 
m 
二 hel Xt+Xhn 大 a | 
1.=J "fax== | i 用 G, 近似 1, ， 就 有 
ho xX) + f(x) 


其 中 
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XK 十 万 h 
二 天 kt 二 


> 
x2 = Xr + Nin __h (26-18) 
大 ee 2 
于 是 
[fdx=3 TUG) + 00) a 
k=1 


其 中 , x0,x 吕 如 (26-18)》 式 所 示 。(26-19〉 式 即 为 常用 的 高 斯 求 积 公式 。 
区 ”数值 积分 的 收敛 速度 的 比较 .分 别 按 下 述 计算 方案 求 积分 1= | er cosxdx 的 近似 值 ， 


并 比较 其 收敛 速度 。 

方案 [梯形 法 ;方案 I 辛普森 法 ;方案 II 高 斯 公式 。 

解 : 显而易见 ， 被 积 函 数 f(x) = 时 cosx 在 积分 区 间 [0,r] 上 是 十 分 光滑 的 。 对 于 这 样 的 积分 可 
以 期 望 复 化 梯形 法 , 复 化 辛普森 法 和 高 斯 公式 的 收敛 的 速度 一 个 比 一 个 快 , 数值 计算 结果 见 表 
26-2， 其 数据 很 明显 地 表明 了 这 一 点 。 


表 26-2 数值 计算 结果 
-17.389259 -11.59283955 -12.12742045 
-13.336023 -11.98494402 -12.07032854 
-12.382162 -12.06420896 -12.07034632 


-12.248004 -12.06995132 


-12.089742 -12.07032146 
-12.075194 -12.07034476 
-12.071558 -12.07034621 
-12.070649 -12.07034631 
-12.070422 


事实 上 , 积分 的 准确 值 为 =-5(+e") = 一 12.0703346316… 。 与 之 相 比 可 知 , 梯形 值 工 ， 


只 有 5 位 有 效 数 字 ， 辛普森 值 9 则 已 有 9 位 有 效 数字 。 

但 是 , 数值 结果 同时 表明 ,收敛 速度 最 快 的 是 高 斯 求 积 法 。 仅 用 七 个 节点 的 高 斯 公式 , 计 
算 结 果 已 经 具有 10 位 有 效 数字 了 。 
练习 1 数值 积分 方法 的 使 用 和 比较 。 对 给 定 的 积分 


5 
(1) 17= zerdxi CO)7=| xzVi+zdxi G)T=| dx 


分 别 用 下 述 方案 计算 求 积 分 值 ， 要 求 误差 不 超过 10* 。 比 较 收 敛 的 速度 ， 并 讨论 或 说 明 原 
因 。 


案 I 梯形 法 ， 方案 ”辛普森 法 ;方案 II 高 斯 公式 。 
被 积 函 数 的 不 光滑 性 对 数值 积分 的 影响 。 用 实验 3 中 所 列 的 三 种 方案 求 下 述 积分 的 
值 ， 并 观察 其 收敛 速度 。 


1=J Vxdx 
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解 : 为 了 便于 比较 ， 首 先 给 出 积分 的 准确 值 7= | Vxdx=2/3。 


由 于 该 积分 的 被 积 函数 f(x) = Vx 在 x = 0 处 的 导数 不 存在 ， 因 此 其 光滑 性 远 没有 实验 3 
中 的 函数 的 性 态 好 ， 其 数值 积分 的 收敛 速度 还 同 实验 3 中 的 情况 一 样 吗 ? 表 26-3 中 给 出 了 各 
种 方案 数值 积分 结果 的 误差 情况 ， 其 中 “比率 ”是 指 当 n 加 倍 时 ,误差 减少 的 速率 ， 即 前 后 两 
次 误差 的 比值 。 
表 26-3 各 种 方案 数值 积分 结果 的 误差 情况 
6.311x10™? 2.860x 107? -7.22x10-3 
2.338x10 一 1.012x10 -1.16x10 3 


8.53311xX 1072 3.587x10™? -1.69x10 
3.085x 10-3 1.268x10™3 -2.30x10-5 
1.108x10-3 4.485X 10 -3.00x10“ 
3.959Xx10 1.586x 10 -3.84x10-7 
1.410x10 5.606x 105 -485X10-8 


从 表 26-3 中 结果 可 以 看 到 ， 不 论 是 从 误差 情况 看 ， 还 是 从 误差 下 降 率 来 看 ， 复 化 梯形 法 
和 复 化 辛普森 法 并 非 像 实验 3 中 那 种 明显 地 提高 收敛 速度 。 对 于 某 些 情况 , 其 至 收敛 速度 反而 
更 慢 。 
从 以 上 数值 结果 还 可 以 看 到 ,高 斯 公式 明显 比 前 两 种 方法 的 收敛 速度 快 ， 有 效 地 处 理 了 光 
滑 性 较 差 函数 的 积分 。 但 应 注意 ， 计 算 中 所 有 奇异 性 态 的 点 应 当 作 为 积分 区 间 的 端点 出 现 。 例 
如 ,高 斯 公式 对 于 积分 区 间 内 部 包含 奇异 点 的 积分 ， 如 
1=[ 让 =-o7ldx 
效果 是 非常 差 的 。 应 当 指 出 ， 大 多 数 其 它 数值 积分 法 也 是 很 差 的 。 这 时 ， 积 分 应 按 下 列 形 式 分 解 
了 = ，v07 —xdx+ | Vx-07 dx 
然后 ， 再 利用 高 斯 公式 求 值 。 
现时 里 ”待定 系数 法 构造 高 斯 公式 。 构 造 下 列 形式 的 高 斯 求 值 公式 
JVxf dx= Af()+ hf ne) (26-20) 
并 利用 该 公式 求 下 列 积 分 的 值 
1=J dx (26-21) 
解 : 积分 式 | ,Vz7(CoDdx 中 函数 Vz 叫做 该 积分 的 权 函 数 。 对 于 一 般 的 权 函 数 ， 构 造 高 斯 公式 
的 方法 可 用 待定 系数 法 。 令 式 〈26-20) 对 f(x) =1,x,x ,x 都 准确 成 立 ， 得 下 列 关 系 式 ;: 
A+Ah, =2/3 
Ant+t+hx, =2/5 
AC+hR =2/7 
AN +AhR=2/9 
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求解 此 非 线性 方程 组 有 xx = 二 起 = 。 从 而 可 得 


n=0.289949 ， 郊 =0.821162 ，A =0.277556 ，4 =0.389111 
于 是 ， 所 求 高 斯 公式 为 
| Vxf (x)dx=0.277556f(0.289949) +0.389111f(0.821162) (26-22) 


由 上 述 过 程 可 见 ， 利 用 待定 系数 法 构造 高 斯 公式 时 ， 遇 到 的 最 大 困难 ， 是 要 求解 非 线性 方 
程 组 。 

利用 公式 〈26-22) 可 得 积分 式 〈26-21) 的 近似 值 为 

7 = zax= 人 edx 
~0.277556x(0.289949)* + 0.389111x(0.821162)’ 
=0.178887 

与 积分 准确 值 =2/11 相 比 ,具有 2 位 有 效 数字 , 比 辛 普 生 公式 (3 个 节点 ) 的 计算 值 8 = 0.196129 
的 精度 高 。 


练习 2 复 化 求 积 公式 计算 定 积分 。 数 值 计 算 下 列 各 式 右 端 定 积分 的 近似 值 。 
1 1 


| t 
G) mn2=-2| (2) r=4| dx 
2 1 x 2 
(3) pet dx (9) © =| xe’dx 
实验 要 求 : 


(1) 复 化 梯形 公式 、 复 化 辛普森 公式 和 高 斯 公式 作 计 算 ， 要 求 绝对 误差 限 为 e=x107， 


分 别 利用 他 们 的 余 项 对 每 种 算法 作出 步 长 的 事前 估计 。 
(2) 分 别 用 复 化 梯形 公式 、 复 化 辛普森 公式 和 高 斯 公式 作 计算 。 
(3) 将 计算 结果 与 精确 解 作 比 较 、 并 比较 各 种 算法 的 计算 量 。 
练习 3 卫星 轨道 是 一 个 椭圆 ， 其 周 长 的 计算 公式 是 


S=4a|: hysin0 do 
a 


式 中 ，a 是 椭圆 的 半 长 轴 ，a = (2R+ 五 + 用 /2; c 是 地 球 中 心 与 轨道 中 (椭圆 中 心 ) 的 距离 ， 
c=(H- 有 /2， 其 中 有 为 近地点 距离 ， 玉 为 远地点 距离 ， 地 球 半 径 R=6371km 。 

我 国 第 一 颗 人 造 地 球 卫星 近地点 距离 h=439km ， 远 地 点 距离 H =2384km 。 试 分 别 按 下 
列 方案 计算 卫星 轨道 的 周 长 ， 误 差 限 取 为 10。 。 
方案 I 辛普森 法 方案 I 高 斯 公式 。 
练习 4 在 电磁 场 理 论 中 已 经 证 明 ， 在 圆 形 的 导线 回路 中 流动 的 电流 所 产生 的 磁场 强度 为 


477r /2 x | 。 2 
H(x) = | 二 | 二 | sin20d6 
7 -X2 0 r 


其 中 ，7 是 电流 ，r 是 回路 的 半径 ，x 是 从 中 心 到 计算 磁场 强度 的 那个 点 的 距离 (0<x<7)。 

现 设 1=15.3,r =120 ， 试 分 别 利用 练习 3 中 的 两 种 方案 求 x=84 处 的 磁场 强度 ， 误 差 限 取 
为 10”。 
练习 5 利用 下 面 的 积分 式 : 
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(1) r= 4| 一 dx; (2) In2= dz， 


ol 


”分 别 利用 练习 3 中 的 计算 方案 求 圆周 率 和 In2 的 近似 值 ， 误 差 限 取 为 10” 。 


26.5 ”蒙特 卡 罗 方 法 


蒙特 卡 罗 方 法 是 一 种 随机 试验 方法 ， 用 它 计算 定 积分 的 原理 可 以 从 下 面 的 例子 得 出 : 
图 26-1 中 给 出 四 分 之 一 单位 圆 , 如 果 向 图 中 边 长 为 1 的 正方 形 里 随机 投 n 块 小 石头 ， 
当 很 大 时 小 石头 会 均匀 分 布 在 正方 形 中 ,计算 落 在 四 分 之 一 圆 里 的 小 石头 ,假定 有 m 个 , 那么 


就 能 看 作 四 分 之 一 单位 圆 面积 二 的 近似 值 ， 于 是 有 = 乞 ， 显 然 这 可 作为 近似 计算 的 一 
种 方法 ,将 在 实验 三 十 中 介绍 。 


O 1 区 
图 26-1 蒙特 卡 罗 法 


26.5.1 随机 投 点 法 


从 概率 论 的 观点 看 上 例 ， 设 投 点 的 坐标 为 (%,y,),i=1,2,…,n ， 每 个 坐标 视 为 相互 独立 的 
(0D 区 间 内 均匀 分 布 的 随机 变量 ， 简 称 (0,1) 随机 数 。 每 个 点 落 在 四 分 之 一 贺 内 的 概率 P{y, < 


Wi-#}=7 (四 分 之 一 单位 图 的 面积 )。 根 据 大 数 定律 ， 随 机 事件 “(x,,y,) 落 在 四 分 之 一 单位 


圆 内 ” 发 生 的 频率 二 ( 依 概 率 ) 收 敛 于 该 事件 发 生 的 概率 po 一) ， 记 作 p= ， 而 p 可 以 用 
积分 表示 为 


f(x) 


p={y<f00}=J | dydx 
= | fdx, f= 
于 是 当 0< Vi 大 <1， 可 以 随机 投 点 法 作 近 似 计算 
j f(Wdxr=2 (26-23) 
n 
这 里 n 是 (二 维 ) (0.D 随机 数 (xs,y) 的 总 数 ， 六 是 其 中 满足 y< f(x ) 的 点 数 。 
26.5.2 . 均值 估计 法 


均值 估计 法 依据 概率 论 中 关于 随机 变量 函数 的 性 质 ， 若 随机 变量 X 概率 分 布 密度 p(x)， 
a<x<b， 则 随机 变量 函数 y= 了 (x) 的 数学 期 望 为 | 


ECF =] FO) pWdx (26-24) 
特别 地 ， 当 XX 为 (0,) 区 间 均 匀 分 布 的 随机 变量 时 ，p(%)=1,(a<x<b)，(26-24) 式 给 出 
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ECU(CO)=| fdx (26-25) 

只 要 产生 (0,1) 随机 数 x(i=1,2,…,n)， 当 nn 很 大 时 , 期 望 E(f(x)) 就 可 以 用 f(x) 的 平均 值 
近似 ， 所 以 由 (26-25〉 式 得 到 

jftdr= sf) (26-26) 

与 随机 投 点 法 的 (26-20) 式 相 比 ，(26-26) 式 设 有 0<f09<1 的 限制 ， 只 需 计算 (x) ， 不 需要 产 


生 随机 数 和 作 < f(x ) 的 比较 ， 显 然 较为 方便 。 
以 上 两 种 方法 称 随 机 模拟 ， 或 蒙特 卡 罗 方法 ， 当 用 这 两 种 方法 计算 任意 区 间 (a,b) 上 的 积 


分 T= | f(xw)dx 时 ， 要 先 作 变 量 代 换 x=a+(b 一 a)u, 将 其 化 为 (0,1) 区 间 上 的 积分 ， 有 


[fdx= -of flat (b—-a)u)dus= 2 
其 中 尺 (i=1,2,…,nn) 为 (0,1) 区 间 的 随机 数 。 
26.6 ” 重 积分 的 计算 


-4y》 f(a+(b—a)u,) (26-27) 
n isl 


考虑 二 重 积分 
上 rodxdy 
此 处 积分 域 D 是 平面 上 的 一 个 有 界 区 域 。 常见 的 有 如 下 2 种 区 域 ; 
(Dagx<b, c<y<d; (2)as<x<b, WEy<dW). 
这 里 cm 和 dg 是 [a,b] 上 的 连续 函数 ， 且 有 cW)<d(%)。 


ys 总 可 以 通过 区 域 的 适当 分 解 ， 化 为 若干 个 这 样 区 域 的 和 ， 


1=] fo Wdxdy (26-28) 
这 里 cw) 和 dm 是 [a,b] 上 的 连续 函数 ， 且 f(x,y) 在 积分 区 域 上 是 连续 的 。 记 
gwW=] ft ydy 
对 于 任何 给 定 的 x 值 , 这 是 一 个 重 积 分 。 因此 函数 g(x) 是 有 定义 的 , 且 根 据 c(x)、 dW) 及 f(x,y) 
的 连续 性 ， g() 也 是 连续 的 ， 于 是 积分 1= "g(x)dx 存在。 因此， 可 以 将 二 重 积分 (26-28) 化 
为 累 次 积分 | 
17= 0 fwd ydx (26-29) 
将 一 个 多 重 积 分 化 为 累 次 积分 后 , 前 面 介绍 的 求 定 积分 的 数值 积分 法 都 可 以 用 来 求 一 多 重 
积分 ， 可 以 得 到 积分 近似 式 
I -Sw Pw)) . (26-30) 
对 于 三 重 积分 的 累 次 积分 法 亦 是 类 似 的 ， 但 累 次 积分 法 仅 适用 于 低 重 积分 。 
练习 6 设计 一 个 数值 积分 方法 计算 
【= 局 2 dx 
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提示 : 这 是 一 个 奇异 积分 ， 可 以 用 下 列 方法 尝试 : 
(D 7 = x dx， 只 要 4A 光 1; 


(2) 令 y=x™Y 把 积分 变 成 另外 的 形式 ， 再 用 数值 方法 计算 ; 
(3) 直接 在 [0,-*] 上 建立 高 斯 型 积分 公式 。 
练习 7 试 建立 计算 多 重 积 分 的 蒙特 卡 罗 方 法 ， 并 研究 蒙特 卡 罗 算 法 的 计算 过 程 和 数值 性 质 。 
取 不 同 的 N =100,500,1000,… ， 用 蒙特 卡 罗 算 法 计算 
1=Jje® Ydxdy, D=[1,2]x[2,3] 


对 于 每 一 个 N 计算 1 次 ， 计 算出 1 个 结果 的 均 方 差 o(N)， 夯 出 go(N) ~~N 之 间 的 曲线 。 


26.7 数值 微分 


在 微分 学 里 ， 求 函数 fm) 的 导数 有 (x) 一 般 来 讲 容易 办 到 ， 但 若 所 给 的 函数 f(x%) 由 表 
格 形式 给 出 ， 则 求 f(x。) 就 不 那么 容易 了 ， 这 种 对 列表 函数 求 导数 通常 称 为 数值 微分 。 


26.7.1 用 差 商 代 导 数 


根据 微 积分 中 的 定义 ， 导 数 了 (mo) 是 差 商 上 加 半 呈 一 人 6) 当 户 一 0 时 的 极限 。 如 果 精度 
要 求 不 高 ， 可 以 简单 地 取 差 商 作为 导数 的 近似 值 ， 即 


Cn) = 站 (26-31) 

类 似 地 ， 亦 可 以 用 向 后 差 商 和 中 心 差 商 作 近似 的 计算 
Foo) =- (26-32) 
f 00)= Tt Gn) (26-33) 


(26-33) 式 又 称 为 中 点 公式 ， 是 前 两 种 方法 的 算术 平均 值 。 在 图 26-2 中 ， 这 三 种 差 商 分 别 表示 
纺 4B8、4C 和 BC 的 斜率 ， 而 导数 f(%%) 为 曲线 在 点 4 处 的 切线 47 的 斜率 。 


图 26-2 数值 微分 公式 的 几何 意义 


将 三 条 弦 与 切线 AT 比较 可 见 ，BC 的 斜率 更 接近 于 47 的 斜率 。 因此， 就 精度 而 言 ， 中 点 
公式 更 可 取 。 事 实 上 ， 由 泰勒 公式 容易 得 到 公式 (26-31)、(26-32)、(26-33) 的 截断 误差 分 别 为 
一 广 @ ， 和 六 GD) ，- 生 (5) 。 一 般 地 ， 根 据 差 商 与 导数 的 关系 ， 
(n) 
f [x0, x ] =- 
nn: 
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还 可 建立 其 它 的 数值 微分 公式 。 例 如 
f (1) =2!1f[x 一 六 加 t= 


上 述 各 公式 从 收敛 性 角度 来 看 ， 步 长 越 小 ， 精 度 越 高 。 但 从 计算 的 观点 看 ，h 很 小 时 ， 将 
出 现 相近 的 数 相 减 和 接近 于 零 的 数 作 除数 ， 使 舍 入 误差 增 大 。 因 此 ， 使 用 这 些 公式 时 ， 应 在 保 
证 满足 精度 的 前 提 下 ， 步 长 尽 可 能 选取 大 些 。 或 者 根据 具体 情况 ， 将 公式 变形 ， 以 避免 上 述 问 
题 发 生 。 
26.7.2 ”利用 插值 多 项 式 求 导数 | 

设 y=p,(x) 为 由 通 数 y= f(x) 的 离散 数据 (x,y,)(i =1,2,…,n) 构造 的 n 次 插值 多 项 式 。 以 
p,(x) 近似 表示 f(x)， 可 建立 公式 

f(x) = p(x) (26-34) 

这 样 的 公式 统称 为 插值 型 求 导 公式 。 

2(z) 的 截断 误差 可 由 p, (x) 的 截断 误差 求 导数 得 到 。 因 为 


_ _ Fe (€) 
f(x)~ p(X) = Dr 


其 中 ，wi(X)=(x 一 (xX 一 克 )…(x 一 于 是 p’(x) 的 截断 误差 为 


VE) Win(x )+ 一 上 一 Wn (X) d 
EE +D! (n+D! dx 


在 这 一 余 项 公式 中 ， 由 于 上 是 x 的 未 知 函 数 ， 当 x 为 非 插值 节点 时 ， 无 法 对 它 的 第 二 项 作 
出 进一步 的 分 析 。 因此 ， 误 差 PC) 一 p'(x) 是 难以 预 信 的 。 但 是 ， 当 x= 太 为 节点 时 ， 上 式 
的 第 二 项 为 零 ， 这 时 有 余 项 公式 
{n+1) 
fp = 二 Ow, (26-36) 
由 于 以 上 原因 ， 以 下 仅 考察 节点 处 的 导数 值 。 为 简化 讨论 ， 假 定 所 给 节点 是 等 距 的 。 设 已 
0 作者 


二 Fo) 到 之 7 


WO ， € € (a,b) 


f (x) ~- p(x) = —f"™ (6) (26-35) 


pi(7) 三 元 二 
对 上 式 两 端 求 导 ， 则 有 两 点 公式 


f G0) = PW) = Tf C5) -fm)] 
(26-37) 


f oo = PG) =7[f -Go 
由 式 (26.36) 知 ， 其 余 项 分 别 为 -2 广 @) 和 全 / (8) 。 
同样 ， 利 用 点 ,= 加 + 六 六 = 为 +2 上 作 二 次 插值 


PP = 和)+ 人 全 二 CD)+Oa an) 为 求 导 方便 ， 令 
(mo 一 为) 一 入 2) Ga — X(N 一 为 ) (2 — XOX, 一 


Xx 二 加 + 级 且 % = 加 +h， 加 = 加 +2h 于 是 上 式 可 表示 为 
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p,(% + th) -3 -DC-270o)-tC-2705) +rC-DJOCa) 
两 端 对 上 求 导 ， 


d d(x +ith 
dx 


dt 
Palx+ ty = DFO) (4DFO5)+ 2 -DF OG)] 

当 分 别 取 1=0,12 时， 得 到 在 三 个 节点 上 的 求 导 公式 

f'n) = 地 300)+ 4f (x)- Fo 


S11 BF 0) (4t -Af 05) + 2 -DF Cs) 


f= fm) +f) (26-38) 
f 03) = 二 LAGo) -4f C5)+3f (oo 


hz . he hr 
其 余 项 分 别 为 二 f (€)、 Fe f (和 f (€)。 
利用 插值 多 项 式 p。(x) 作为 f(x) 的 近似 函数 ， 还 可 以 建立 高 阶 数值 微分 公式 
f(x) = ph (x) (26-39) 
例如 ， 利 用 p, (x) 可 得 二 阶 三 点 公式 


f(a)= 去 UfG -月 -27(00)+ fn +A)] 


必须 指出 ， 即 使 f(w) 与 p(x) 的 值 相差 不 多 ， 其 导数 Fw (z) 与 p(x) 仍然 可 能 相差 很 大 。 
因此 ， 在 使 用 插值 型 求 导 公 式 时 要 特别 注意 误差 分 析 。 
利用 数值 积分 方法 求解 
I +y(x)+xy(x)=0 
y(0)=1, y(D) =0 
解 : 把 区 间 [0] 分 成 N+1 份 ， 记 = 后 =D…,N+4,h=1/(N +1). 在 结 点 
二 Kh 二 1,…,N 处 分 别 用 


CD = + On) (26-40) 
f(x) = CO) 2) + FD op) (26-41) 
代替 方程 中 的 y'(x) 和 y“(x,)。 得 
y(Xin) — 2 + y(Xi-1) VK et + 和 ?Cr )= Oh?) (26-42) 
边界 条 件 为 
y(X0)=1,y(xyn)=0 (26-43) 
当 足够 大 时 ， 


Vi — Pt Ye, Verl — Vet i 
0 (26— 42)' 


为 =by =0 (26— 43)" 
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这 里 y 是 y(%) 的 近似 值 。 
把 (26-42) "和 (26- 43)' 整 理 后 得 到 关于 y,y,、…,y, 的 线性 方程 组 
2+13 1+h/2 y 1+h/2 
1-h/2 -2+213 “. y, 0 
1-h/2 “…. | 全 | 人 (26-44) 
'，-2+(N-D1 1+h/2 | | yw 0 
1-h/2 -2+N1| | Ow 0 
利用 高 斯 消去 法 解 出 上 面 的 方程 组 ， 得 到 表 26-4 所 列 的 数值 结果 : 
表 26-4 数据 表 


| 
N=5 


N=10 


Ee 
.7274 .4990 .3049 .1394 
.8572 .7272 .6082 .4987 .3978 .3046 .2186 .1393 .0665 
.8562 .7272 .6081 .4986 .3977 .3045 .2184 ,1393 .0664 


不 难看 出 当 N =10 时 近似 解 和 精确 解 y(%,) 已 经 重合 得 很 好 。 
和 已 知 一 组 实测 数值 (如 表 26-5 所 示 )， 拟 合 它们 的 数学 模型 是 一 个 二 阶 常 微分 方程， 
需要 求 出 其 中 的 待定 拟 合 参数 。 这 是 一 个 反问 题 ， 如 已 知 拟 合 模型 是 xy*+ay’+ (x 一 b)y=0， 
其 中 a 和 bb 是 待定 的 整 参数 ， 试 求 常数 a 和 b。 


表 26-5 数据 表 


y(x) 


1.95532 
2.19756 
2.45693 


解 : 将 微分 方程 在 x 点 上 离散 ， 即 用 二 阶 中 心 差 商 去 代替 y” ， 用 一 阶 中 心 差 商 去 代替 了 ， 令 
h=Xxn 一 =0.2， 多 =0.8+0.2i,i=0,1,2,…,7， 得 到 内 点 x 上 的 差分 方程 


yi —2y.,+y,. +1 一 了- 7 
i 


它们 是 关于 未 知 量 a 和 6b 的 超 定 方程 组 

1.1680a—1.9553b = —2.3873 
1.2540a—2.1976b =-3.1510 
1.3388a— 2.4569b = —4.0274 
1.4214a -2.7331b = -5.0225 
1.5006a —3.0255b = -6.1411 
1.5754a —3.3333b = -7.3887 


11.4832 一 22.0051 || a | |-40.1260 
-22.0051 42.4236 ||b | | 78.4233 


用 最 小 二 乘法 求解 ， 得 方程 
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其 解 为 a=7.9828,b =5.9893 , 取 整 后 得 a = 8,b=6。 
练习 8 上 比较 求 一 阶 导数 和 二 阶 导 数 的 数值 方法 。 


(1) = 识 关 - 守 六 ， xe [0,3]; 


(2) es Xe [0.3,2] ; 

(3) p(x)=ex cos20x, xe[0,2]。 
实验 要 求 : 

(1) Mathematica 显示 以 上 函数 图 形 ， 观 察 每 个 图 形 的 特点 ; 

(2) 利用 等 距 节 点 上 的 函数 值 ， 必 要 时 给 出 端点 导数 值 ， 分 别 用 重 分 差分 法 、 样 条 函数 法 
计算 上 述 函 数 的 一 阶 和 二 阶 导数 ; 

(3) 研究 分 析 对 每 一 种 函数 哪些 数值 方法 有 效 ? 说 明 精 度 和 有 hh 的 关系 。 

26.8 ”值得 进一步 研究 的 问题 


问题 1 对 下 面 你 知道 答案 的 几 个 例子 ， 比 较 三 种 方法 的 精度 。 在 每 种 情况 下 ,分 别 计算 近似 
. 值 与 误差 = 近似 值 - 真 值 。 


0D ficosxax @ fCQxtdax G8) a-edxr 人 [Sr-6r+030dx 
取 同 样 的 n=2m 比较 每 种 方法 误差 的 大 小 ， 并 观察 每 种 方法 随 n 增加 一 倍 时 对 误差 大 小 


的 影响 。 
提示 : 通过 对 各 种 方法 计算 比值 Error(n)/Error(2n) 跟踪 近似 值 的 改进 。 


问题 2 计算 ,Viidx ， 你 能 否 得 到 荆 的 近似 值 ? 如 果 每 次 加 倍 m 值 ， 对 每 种 方法 你 志 


要 多 大 的 m 值 可 以 得 到 精确 到 第 2、3、4 等 小 数位 的 r 值 ? 也 可 试 试 m=10,100,1000 。 
思考 ， 为 什么 被 积 函数 需要 带 上 绝对 值 ? 
1 


问题 3 选择 其 它 函 数 和 区 间 , 对 其 应 用 三 种 求 积分 的 方法 计算 积分 近似 值 , 例如 上 


问题 4 选 一 个 在 区 闻 [w, 忆 =[-11 上 我 们 不 知道 如 何 积分 的 函数 ， 如 f(x) =e-”， 上 比较 用 不 
同方 法 得 到 的 此 积分 的 近似 值 。 


问题 5 关于 函数 f(x) = 于 在 区 间 [a,b]=[1,2] 上 的 积分 又 如 何 ? 在 区 间 [a,b]=[0,1]1 上 呢 ? 


有 很 多 表示 弧 长 的 积分 , 但 我 们 很 少 能 解析 地 计算 它们 。 于 是 它们 就 经 常 需 要 应 用 数值 方 
法 来 计算 ， 其 中 椭圆 的 周 长 就 是 一 种 这 样 的 积分 。 . 
考虑 椭圆 zx = acost,y =bsint ， 其 中 0< 长 27 。 假 定 椭圆 的 主轴 是 水 平 轴 ， 即 p<a。 参 数 


化 的 速率 是 
xz (1)+ y" (t) =Va’ sin?t+b’cos’t 
并 且 弧 长 L= "Vx" (D+y” (Dd)， 所 以 
L= [A sin?t+b?cos:tdt 


.2 
=4| a’ sin’:t+b’cos’tdt 


dx。 
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已 2 
= 4af il -( -os 1 dt 


习惯 上 把 计算 工 的 公式 中 最 后 一 步 里 的 表达 式 写 为 -4 已)， 其 中 非 负 的 平方 根 大 被 


称 为 椭圆 的 离心 率 

问题 6 (a)& 的 取 值 范围 如 何 ? 圆 的 离心 率 是 什么 ? 

@) 积分 | 2(1-k?cos*#)7 di 被 称 为 完全 椭圆 积分 。 选 择 a=1， 于 是 k? =1-b* ， 利 用 辛普森 法 
找到 k=0,0.1,0.2,…,0.9,1.0 时 这 个 积分 的 值 。 这 些 结果 和 你 关于 各 种 椭圆 周 长 的 直观 印象 比较 
如 何 ? 

问题 7 数值 积分 应 用 于 求解 积分 方程 。 


1 1 4x +5x —2x+5 __ 1 
0 YmD=j -YOdr+ 一 Tj， 其 精确 解 YO 


(2) Ye-oyoaserd| 和 上 -et ， 其 精确 解 y(x) =e” 


分 别 用 梯形 公式 、 辛 普 森 公式 和 三 点 高 斯 求 积 公式 去 离散 积分 方程 中 的 积分 项 ,并 求解 以 
上 积分 方程 ， 得 到 其 解 函数 的 近似 表达 式 ， 分 析 比 较 结 果 。 
问题 8 ”学 会 用 数值 微分 方法 求解 偏 微 分 方程 。 在 单位 正方 形 上 有 偏 微 分 方程 。 
t+) 
求解 条 件 是 : 
u(0, y) = u(x,0)=0; 
ull,y)=y /6;u(x,l)=x/6 
分 别 取 =5,10,15 把 单位 正方 形 划 分 成 NXN 个 小 格子 ， 并 把 格子 线 的 交点 编号 (i, j) ， 
记 u(%,y)=w)。 用 数值 微分 公式 建立 关于 ,的 线性 代数 方程 组 ， 并 求解 。 该 方程 的 精确 解 


是 u(x,y)=(xy) /6。 将 精确 解 和 近似 解 画 在 同一 张 三 维 图 上 ， 分 析 比较 你 的 计算 结果 。 
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实验 二 十 七 常 微 分 方程 的 数值 角 


微分 方程 是 研究 函数 变化 规律 的 有 力 工 具 ， 在 科技 、 工 程 、 经 济 管理 以 及 生态 、 环 境 、 
人 口 、 交 通 等 各 个 领域 中 有 着 广泛 的 应 用 。 如 在 研究 弹性 物体 的 振动 ， 电 阻 、 电 容 、 电 感 电 路 
的 瞬 变 ， 热 量 在 介质 中 的 传播 ， 抛 射 体 的 轨迹 ， 以 及 污染 物 浓 度 的 变化 ， 人 口 增长 的 预测 ， 种 
群 数量 的 演变 ， 交 通 流量 的 控制 等 等 过 程 中 ， 作 为 研究 对 象 的 函数 ， 要 和 函数 的 导数 一 起 ， 用 
一 个 符合 其 内 在 规律 的 方程 , 即 微分 方程 来 描述 , 常 微分 方程 分 为 初 值 问 题 与 边 值 问题 两 大 类 。 
在 高 等 数学 或 常 微分 方程 课程 中 ， 只 介绍 了 一 些 典型 方程 求解 析 解 的 方法 。 然 而 , 在 自然 科学 
和 工程 技术 中 遇 到 的 微分 方程 往往 比较 复杂 , 很 难 甚至 不 能 求 出 其 解 的 解析 表达 式 , 只 能 用 近 
似 方 法 来 求解 。 近 似 解 法 主要 有 了 两 类 : 一 类 叫做 近似 解析 方法 ， 它 能 给 出 解 的 近似 表达 式 ， 例 
如 熟知 的 级 数 解法 和 逐次 过 近 法 等 ; 另 一 类 近似 解法 称 为 数值 方法 , 它 可 以 给 出 解 在 一 些 离散 


点 上 的 近似 值 。 
本 实验 重点 研究 下 面 初 值 问题 数值 求解 方法 
=f(%)) a<x<b (27-1) 
y(a)= Yo 


其 中 f 为 x,y 的 已 知 函 数 ，y, 为 给 定 的 初始 值 。 

由 微分 方程 的 理论 可 知 ， 如 果 f(x,y) 在 区 域 a<x<b,-oo < y< +tee 内 连续 ， 且 关于 y 满足 
李 普 希 兹 (Lipschitz) 条 件 ， 即 存在 常数 L， 使 

[f(x,y) -fC 7)|< Ly- 

对 所 有 的 asx<b 及 任何 yy7 均 可 成 立 ， 则 初 值 问题 (27-1) 有 连续 可 微 的 解 y(x) 存在 且 唯 一 。 

所 谓 数值 解法 ， 就 是 寻求 微分 方程 初 值 问 题 或 边 值 问题 之 解 y(x) 在 一 系列 离散 点 
a= 和 为 <<%<…<XWy1<xy =b 上 的 值 y(%,) 的 近似 值 y,(n=0,1…,NN) 的 方法 。{y,} 称 为 问 
题 的 数值 解 , 数值 解 所 满足 的 离散 方程 统称 为 差分 格式 。 相 邻 两 个 节点 之 间 的 距离 h =x, 一 x ， 
称 为 步 长 ， 通 常 将 步 长 取 为 常数 h。 


27.1 欧 拉 方 法 


欧 拉 (Euler) 方法 是 最 简单 的 数值 解法 ， 虽 然 它 的 精确 度 极 差 ， 但 构造 这 个 方法 的 基本 
原理 对 于 构造 一 般 的 数值 方法 具有 普遍 意义 。 


27.1.1 欧 拉 方 法 的 构造 
将 方程 (27-1) 中 点 x 处 的 导数 y (n) 用 差 商 近似 的 表示 为 


y (Xn 于 y(%,) (27-2) 


即 在 该 点 有 近似 等 式 > 一半 (x,y(%,)。 由 代 替 y(%) ， 由 上 式 可 以 导出 其 近似 信 
满足 的 差分 方程 
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y (Oo) = 


y=, + hf Ky ) n=0,l,%, Nl1 . (27-3) 
(27-3) 式 称 为 欧 拉 方 法 的 计算 公式 或 称 为 欧 拉 公式 。 当 初始 值 mn =a 给 定时 , 利用 网 拉 公 
式 就 可 以 逐次 计算 出 初始 值 问题 的 数值 解 y0,y,，…, yy 。 
下 面 我 们 来 讨论 用 欧 拉 公式 近似 解 微 分 方程 的 各 近 误差 。 设 问题 (27-1) 的 解 y(x) 二 阶 连 
续 可 微 ， 由 泰勒 展开 有 
yt) = yx,)+ ye +O(W)n=0,1,2,.……,N -1) 
显然 ， 如 果 假 定 y, = y(w)， 则 有 
Rs = yn) = Yon = Cs) + OW) (27.4) 
称 RR 为 欧 拉 方法 的 局 部 截断 误差 。 当 hh 一 0 时 ，RR, ;是 与 有 同 阶 的 无 穷 小 量 O(h?) 。 
车 一 种 数值 算法 的 局 部 截断 误差 为 O(h?*"), 则 称 该 算法 上 共有 p 阶 精 度 ， 所 以 欧 拉 方法 是 一 
个 一 阶 方法 。 
用 欧 拉 公式 解 初 值 问题 


y(0)=1 


2 ) : 其 中 =nh=0.1n(n =0,1,.…,10) » 已 知 yo =1 9 


解 : 取 步 长 h=0.1, 则 Jp = Yn +h(y, EF 
由 此 式 可 得 


2x, 
=y0+h(yo — = 
0 
y, = +h(y, 2 =11+0410.1- 了 =1.191818 
Di 。 


依次 计算 下 去 ， 与 准确 解 y>= VIi+2x 相 比 ， 可 看 出 欧 拉 公式 的 计算 结果 精度 不 太 高 ， 如 图 
27-1 所 示 。 


0.2 0.4 0.6 0.8 1 


27-1 数值 计算 结果 与 精确 解 的 比较 


练习 1 试 说 明 欧 拉 公 式 的 几何 意义 。 
练习 2 试 讨论 欧 拉 公式 的 求解 误差 。 


27.1.2 后 退 的 欧 拉 公 式 
“如果 在 点 xs 处 用 向 后 差 商 近似 〈27-1) 式 中 的 导数 yn) = 2 20%) 即 有 
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?CD)=yO0)+ 扩 (syO))。 再 用 近似 值 y 代 替 y(x,)Gi=n,n+1), 则 可 导出 近似 值 满足 的 方 
程 
ya = + hf Nn ys) (27-5) 
(27-5) 式 称 为 后 退 的 欧 拉 公 式 。 它 与 欧 拉 公式 〈27-3) 的 一 个 明显 区 别 是 : 已 知 y, 时 ， 必 须 通 
过 解 方程 才能 求 出 y,,, 。 这 样 的 公式 成 为 隐 式 公式 ， 而 欧 拉 公式 则 为 显 式 公式 。 
可 以 证 明 ， 隐 式 的 后 退 欧 拉 公式 (27-5) 的 局 部 截断 误差 为 


2 
R=- (5) + OW) = OUB) (27-0) 
其 精度 亦 为 1 阶 。 在 利用 后 退 的 欧 拉 公 式 计 算 时 ， 一 般 用 向 前 欧 拉 公式 产生 初 值 ， 
y= +h (sy), n=0,1,2,.: (27-7) 
再 按 下 式 迭 代 ， 
yi = 义士 凡生 )， k=0,1,2,.…:n=0,1,2,.… (27-8) 


为 讨论 局 部 截断 误差 ， 在 图 27-2 中 设 点 p,(%,y,) 落 在 积分 曲线 y= y(x) 上 ， 按 式 (27-3) 
及 式 (27-5) 分 别 得 已 ,点 为 4 与 B， 且 4,B 两 点 一 定 在 积分 曲线 y= y(x) 上 相应 点 Q 的 上 下 两 
边 ， 所 以 将 式 (27-3) 与 式 (27-5) 平 均 之 ， 一 定 能 得 到 更 好 的 结果 。 


图 27-2” 欧 拉 法 的 几何 意义 


27.1.3 ”改进 的 欧 拉 公 式 
将 向 前 与 向 后 欧 拉 公式 加 ee N 式 
n+l 三 13[f 0%) + fom y,1)] n= 0,1, 2 (27-9) 


其 局 部 截断 误差 为 O(h)， 加 有 二 阶 : 梯形 公式 也 是 隐 式 的 ,其 实际 应 用 时 常 与 显 式 的 欧 拉 
公式 联合 使 用 ， 构 成 如 下 的 计算 格式 


ye =y, +hf (x,,y,) 


ye =y, +2[ (cy ) +f (x7)], 
即 先 用 欧 拉 公式 算出 初始 近似 值 yo ,然后 用 (27-10) 式 的 第 二 式 进行 迭代 ， 反 复 改 进 这 个 近似 
值 ,直到 |y%*? 一 yi<e (为 所 允许 的 误差 ) 为 止 ,而 把 yt 吕 取 作 y(%,) 的 近似 y,，， 类 似 地 计 


算 Vnt2» Ynt3'"*° 
显然 ， 如 果 上 述 和 迭代 序列 y 吕 ,yw 收敛 ， 其 极限 便 满足 方程 


Yntl = +12[fG + 
即 求 序列 的 极限 时 梯形 公式 所 得 的 解 y,,, 。 容 易 证 明 ， 只 要 有 取得 充分 小 ， 上 述 迭 代 过 程 必定 收 
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(27-10) 


敛 。 事实 上 ， 将 (27-9) 式 与 (27-10) 式 的 第 二 式 相 减 ， 得 
n+l 一 ye =2[fG nt+l? ,ys 一 -|[ /Gen 7 


(k+1) 云 hL 
2 


(k) 
Vntl 一 n+l 


由 于 了 满足 李 普 希 兹 条 件 ， 故 有 |y yp 一 oj。 


因此 ， 只 要 有 h 充分 小 ， 使 守 <1 其 中 二 为 李 普 希 兹 常数)， 和 迭代 过 程 是 收敛 的 。 但 计算 
时 需要 迭代 多 少 次 ， 一 般 事 先 无 法 估计。 实践 表明 ,在 疡 取得 较 小 的 条 件 下 ， 和 迭代 效果 主要 体 
现在 第 一 次 。 因 此 ， 通 常 让 计算 迭代 一 次 就 结束 ， 将 其 一 次 迭代 值 取 作 y,,, ， 这 时 得 到 以 下 预 
测 一 校正 型 公式 为 


预测 y= y+ x,y,) 
(27-11) 
校正 7 一 总 [fC%, y+ fe)] (m=0,2..) 
或 直接 写成 
= +12[f G69) + f Omy, +hf (x,, »,))] (27-12) 
yo 三 CQ 


(27-11) 式 或 (27-12) 式 称 为 改进 的 欧 拉 公式 。 将 (27-12) 式 展开 后 与 初始 问题 的 解 的 泰勒 展开 
式 比较 ， 可 知 其 局 部 截断 误差 仍 是 O( 户 ), 即 改进 的 欧 拉 公式 是 2 阶 方法 ， 人 
最 后 指出 ， 上 述 欧 拉 方 法 可 推广 至 解 微分 方程 组 。 如 


y =f(x,y,z) 
z= g(x,y,z) (27-13) 
y(%)=y0,z(H)= a 
向 前 欧 拉 公 式 为 
有 h 
yn = + hf (Xs y,, 2 a 007.14) 
tn = Zthg (Xs YZ) 
用 欧 拉 方 法 和 改进 的 欧 拉 方法 求 初 值 问题 ， 
dy_2.7 
dx 3 y 
y(0)=1 
在 区 间 [0,1] 上 取 产 = 0.1 的 数值 解 。 
解 ， 网 拉 方 法 的 计算 公式 为 ya = +h.3 了 各， y=hh=0.1. 
改进 的 欧 拉 方 法 其 计算 公式 为 
yo = 了 
十 1 下 3 2 
= +4 2. 为 2 | 
nn = y+ 2 3 了 2 3 Go) 
yo =1,h=0.1 
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精确 解 为 y(x) = 妆 +x ,可 用 来 检验 数值 解 的 精确 度 ， 计 算 结 果 如 图 27-3 所 示 。 


0.2 0.4 0.6 0.8 1 


图 27-3 不 同方 法 解 的 比较 〈 左 、 右 图 绘图 区 间 分 别 为 [0,1] 、[0.4,0.6] ) 


由 图 27-3 可 以 看 出 改进 的 欧 拉 法 比 欧 拉 法 精度 高 。 
练习 3 用 欧 拉 法 计算 下 列 积 分 在 点 x=0.5,1,1.5,2 处 的 近似 值 。 
1(x) = | et dt 


练习 4 对 给 定 的 初 值 问 题 ， 


oe 

y(xm) = 

y(m)= 为 

写 出 改进 的 欧 拉 公式 。 

练习 5 分 别 用 欧 拉 法 和 改进 的 欧 拉 法 解 下 面 的 初 值 问题 。 
| ，1<x<1.3 
y(D=y()=-1 


取 h=0.1 计 算 ， 并 与 准确 解 = 一 相 比较 。 


练习 6 利用 改进 的 欧 拉 方法 求解 
y(x)=-psinpx  ，yO)=1 
取 p=3,4,5 和 不 同 的 步 长 h 
练习 7 考虑 局 部 截断 误差 积累 的 影响 而 不 计 合 入 误差 ， 所 得 到 的 差分 方程 的 精确 解 》 与 微 
分 方程 精确 解 y(x,) 的 误差 e, =|y(x,) 一 y|, 称 为 整体 截断 误差 。 对 于 初始 值 问题 


| 
y(0)=1 

分 别 给 出 用 显 、 隐 式 欧 拉 方 法 和 梯形 公式 得 到 的 解 ， 当 x 固定 时 ,给 出 整体 截断 误差 ， 并 加 以 
比较 。 

练习 8 给 出 欧 拉 方法 的 整体 截断 误差 与 局 部 截断 误差 的 关系 ， 并 推导 之 。 

练习 9 观察 显 式 欧 拉 方 法 的 收敛 性 。 取 有 =0.1,0.05, 0.01…, 用 显 式 欧 拉 方法 求解 初 值 问 题 ; 


1 


和 =xy? 
y(D =1 


练习 10 ”观察 显 式 欧 拉 方 法 求解 
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y =-50y 
y(0)=100 


并 画 出 曲线 ， 同 样 用 隐 式 欧 拉 方法 重复 求解 上 述 问题 。 
FE 验 3 ”利用 欧 拉 方法 求解 以 下 微分 方程 组 
; = Ksin(Xx) cos(ny) 


y'=~—KcOs(nx) sin(ney) 

x(0)=0.9 y(0)=0.1 
解 : 选取 步 长 h=0.01, 分 别 在 区 间 [0,1],[0,2] 画 出 欧 拉 方法 的 求解 结果 并 以 精确 解 比较 的 图 形 
如 图 27-4 所 示 。 


02 04 0.6 0.8 HO Tee 1 
图 27-4 数值 结果 与 精确 解 的 比较 


练习 11 改变 不 同 的 初 值 ， 重 做 实验 3。 


27.2 ” 龙 格 - 库 塔 公式 


对 很 多 实际 问题 来 说 ; 欧 拉 公 式 与 改进 欧 拉 公 式 精度 还 不 能 满足 要 求 , 为 此 从 另 一 角度 来 
分 析 这 两 个 公式 的 特点 ， 从 而 探索 一 条 构造 高 精度 方法 途径 。 
设 y(x) 为 初 值 问 题 (27-1) 的 准确 解 ， 根 据 微分 中 值 定理 
yn) = NX) + y= yx )+ hf ON, ym,), Nh, € (Xs Xn) 
了 (nm,, y(n,) ) 为 解 曲线 y(x) 在 区 间 [x,,%,1] 上 的 平均 斜率 。 可 见 ， 只 要 能 对 平均 斜率 提供 一 种 
近似 算法 ， 就 能 得 到 一 种 对 应 的 差分 格式 。 欧 拉 公 式 (27-3) 相 当 于 取 一 个 点 (x,y,) 处 的 斜率 
(x,y,) 近似 代 痊 平均 斜率 ， 其 精度 较 低 。 将 改进 的 欧 拉 公 式 (27-11) 变 形 为 


: 二 f(%,, y,) 


k, = f (Xn y, + hk) (27-15) 
Yntl = yn +4(k +k,) 


则 可 以 看 出 改进 的 欧 拉 公 式 相 当 于 取 (z, )、( sy + 有 大) 两 点 处 斜率 的 平均 值 ， 近 似 代替 
平均 斜率 ， 其 精度 比 欧 拉 公式 提高 了 。 

由 此 ， 如 果 在 区 间 [%,%] 内 多 预测 几 个 点 的 斜率 ， 用 它们 的 加 权 平 均 代替 平均 斜率 ， 则 
有 可 能 构造 出 精度 更 高 的 公式 。 例 如 取 m 个 点 的 斜率 可 构造 如 下 形式 的 公式 : 
k= f(x,,y,) 
k, = f(x, +ah, y,+b,hk) 
k= f(x +ah, y, +hhk +bhk,) 
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k= f(x tanh, y+bhk t+ bn ihk,1) (27-16) 
yr = ya + hck +cky t+ ck) 


其 中 a,b,,c; 都 是 与 fn 无 关 的 常数 ， 其 值 应 使 公式 (27-16) 的 精度 尽 可 能 高 ， 该 公式 称 为 m 级 
龙 格 - 库 塔 (Runge- Kutta) 公式 ， 简 称 R-K 公式 。 

显然 ， 只 要 将 公式 (27-16) 的 局 部 截断 误差 在 x 点 进行 泰勒 展开 ， 令 其 前 面 尽 可 能 多 的 项 
为 0， 便 可 导出 a,b,,c; 所 满足 的 方程 组 ， 即 可 从 中 求 出 这 些 系数 。 

从 以 上 的 分 析 启 示 我 们 ， 龙 格 - 库 塔 方法 的 基本 思想 是 : 利用 f(x,y) 在 某 些 点 处 的 值 为 线 
性 组 合 ， 来 构造 一 类 计算 公式 ， 使 其 按 展 开 后 与 初 值 问题 的 解 的 泰勒 展开 式 比较 ， 有 尽 可 能 多 
的 项 完全 相同 以 确定 其 中 的 参数 ， 从 而 保证 算式 有 较 高 的 精确 度 。 由 于 避免 了 在 计算 式 中 直接 
用 到 f(x,y) 的 导数 ， 所 以 说 龙 格 - 库 塔 方法 是 基于 间接 利用 泰勒 展开 的 思想 。 


27.2.1 二 阶 龙 格 - 库 塔 公式 
首先 ， 不 妨 在 区 间 [x,,x,,, ] 内 仍 取 2 个 点 ， 仿 照 (27-11) 式 用 以 下 形式 试 一 下 
Yin = ynt h(A + 2k,) 


k= f(x,,y,) (27-17) 
k=f(x,+Qh,y, +Bhk), 0<oa,8<1 


其 中 4, 和 ac, 有 为 待定 系数 ,看 看 如 何 确定 它们 使 (27-17) 式 的 精度 尽量 高 。 为 此 ,我 们 分 析 局 
部 截断 误差 y(x,,) 一 yw ， 因 为 y=y(%%)， 所 以 (27-17) 式 可 化 为 

yn = V(X) + h(A hk + A ,kK,) 

k= f(x 7(%,)) = y (x,) 


-18 
k= f(x, +Qh, y(x,)+ Bhk) z (27-18) 
二 fx,7x)) + Ohf CO yx,)) 十 Bhkf, (x, y(%,)) + O(h?) 
其 中 局 在 点 (xz ,y(x 力作 了 泰勒 展开 。(27-18) 式 又 可 表 为 
yan = yO) + htAD)Y (WH) tA (大 + Ef f+ Om) (27-19) 


注意 到 在 yn) = G60) + hy 06) + Ty "6) + OF) 中 y'=f,y"=f.+f'f, 可见 为 使 误差 
y(Xn) k= Ol ), 只 需 令 


pW (27-20) 
2 CQ 


待定 系数 满足 (27-20) 式 的 (27-17) 式 称 为 二 阶 龙 格 - 库 塔 公式 。 由 于 (27-20) 式 中 有 4 个 未 知 数 而 
只 有 3 个 方程 ， 所 以 解 不 唯一 。(27-20) 式 的 每 一 组 解 都 使 (27-19) 式 的 局 部 截断 误差 为 CO( 请 ) ， 


即 都 使 27-17) 式 成 为 一 个 二 阶 方法 。 较 常用 的 方法 有 两 个 ， 一 个 是 取 和 = 4 2 wx= 有 =1 这 
就 是 改进 的 欧 拉 方 法 。 另 一 个 是 取 》 = 0， 4:=-1c= 有 =- 了， 即 得 
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ntl 三 Yn +k, 
k=hf (ny,) (27-21) 


h k 
k= (x +—,y, + 
; f(x, 2 yn 2 ) 


(27-21) 式 通常 称 为 中 心 点 公式 。 二 阶 龙 格 - 库 塔 方法 每 一 步 需要 两 次 计算 函数 的 值 。 
可 以 证 明 ， 在 [xx 内 只 取 2 点 的 龙 格 - 库 塔 公式 精度 最 高 为 二 阶 。 
27.2.2 ”四 阶 龙 格 - 库 塔 公式 
要 进一步 提高 精度 ， 必 须 取 更 多 的 点 ， 如 取 4 点 构造 如 下 的 公式 : 
yn = > + hak +Ak, + Ak + hk) 
k= f(x,y,) 
Kk =f +oh, y+ Bihk) (27-22) 
b=f(%+oh, y,+ Bshk + Bshk,) 
k=f(x+Qh, y+Bhk + Pshk, + Bhk,) 
其 中 待定 系数 4,,&,, B, 共 13 个, 经 过 与 推导 二 阶 龙 格 - 库 塔 公式 类 似 但 更 复杂 的 计算 , 得 到 使 
局 部 误差 yx -yu = OR) 的 11 个 方程 。 这 些 公式 也 有 无 穷 多 个 ， 下 面 给 出 了 比较 重要 的 
两 个 公式 。 
标准 〈 又 称 古 典 ) 四 阶 龙 格 - 库 塔 公式 : 
yn = + + 2k, +2k,+k,) 
k = f(x,, y,) 
所 = C+, y+ (27-23) 
k 
局 = 了 (xc + yn + 
k= f(x +h,y,+hk,) 
其 计算 精度 为 四 阶 。 
基 尔 公式 : 


Jr 三 多 + +(2—V2)k, +(2+ V2)k +k] 


k=f(n,, y,) 

h hk 
k= yr 
2 Port 了 六 十 7) 

本 (27-24) 

k= f+ y+ lp +2 V2 4.) 

2 2 2 

V5 /i 


k= f(x +h,y, -总 +Q+ hh) 


标准 四 阶 公 式 (27-23) 是 实际 计算 最 常用 的 一 个 龙 格 - 库 塔 型 公式 ， 基 尔 公 式 具有 减少 合 入 
误差 及 稳定 性 好 的 优点 。 
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=—y+x+l1, 0<x<0.6 
y(0)=1 


解 ， 取 步 长 h=0.1， = Kh(k =0,1,….6) 。 用 各 种 方法 进行 计算 ， 计 算 结果 见 表 27-1。 
表 27-1 用 各 种 方法 进行 计算 的 结果 


误差 
(x10-7) 


1.000000 1.005000 1.00483750 


1.010000 1.019025 。 1.01873090 
1.029000 2 1.041218 。 1.04081842 


1.056100 。 1.070802 1.07032029 
1.090490 1.107076 1.10653093 
1.131441 ， 1.149404 。 1.14881193 


对 比 以 上 各 组 数据 可 以 看 到 : 在 相同 步 长 下 求 同 一 问题 时 , 方法 的 阶 数 越 高 , 解 的 精度 越 
高 。 结 果 的 图 形 比 较 如 图 27-5。 


1:15 1.35 
1.125 1.125 
1.1 L1 
1.075 1.075 
1.05 L105 
1.025 1.025 
0.1 0.2 0.3 0.4 0.5 0.1 0.2 0.3 0.4 0.5 
(a) (b) 
1.175 1.175 
1.15 1.15 
1.125 1.125 
1,1 1.1 
1.075 1.075 
1.05 1.05 
1.025 1.025 
0.1 0.2 0.3 0.4 0.5 0.1 0.2 0.3 0.4 0.5 
(c) (d) 


图 27-5 同一 步 长 、 不 同方 法 计算 结果 的 比较 
(a) 欧 拉 法 与 精确 解 的 比较 ，(b) 改进 的 欧 拉 法 与 精确 解 的 比较 ; 
(©) 龙 格 - 库 塔 公式 与 精确 解 的 比较 ，(d) 三 种 方法 的 比较 。 


考虑 常 微分 方程 初始 值 问题 ， 


y -C++ 十 4X 一 1 
y(0)=0 
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其 解析 解 为 y(x) =e ?+ x21。 试 说 明 用 有 =0.001 的 一 阶 显 式 欧 拉 公式 ， 有 =0.002 改进 的 欧 拉 
公式 和 有 =0.004 的 经 典 龙 格 - 库 塔 公式 计算 到 zx= 0.5. 。 
解 :三 种 方法 在 x 方向 每 前 进 0.004 都 要 计算 4 个 右 端 函数 值 ,计算 量 相 当 。 计 算 结果 见 表 27-2。 


表 27-2 三 种 方法 的 计算 结果 


欧 拉 法 (x10 分 改进 的 欧 拉 法 (x 10 分 经 典 R- 久 法 (x10- 人) 精确 值 (x10- 2 
0 0 0 0 0 


-0.198200133267 


-0.19825 -0.198200133266 


-0.39289 -0.392801065601 


-0.392801065600 


-0.58395 -0.583803594606 -0.583803594606 


-0.77139 -0.771208516293 -0.771208516294 


-0.95525 -0.955016625082 -0.955016625083 


从 以 上 计算 结果 看 ， 它 们 的 最 大 绝对 误差 ， 欧 拉 法 是 2x10-5 ， 改 进 的 欧 拉 法 是 2x10， 
经 典 四 阶 龙 格 - 库 塔 法 是 10-*。 因 此 ， 经 典 四 阶 龙 格 一 库 塔 法 步 长 最 大 ， 计 算 精度 最 高 。 结 果 


的 图 形 比 较 如 图 27-6。 


0,1 0.2 0.3 0.4/ 0.5 


(b) 
dl 02 03 0 05 
-p.m 
= UU 
-0.06 
-0.0 
-0.1 


(9 (d) 


图 27-6 不 同步 长 、 不 同方 法 计算 结果 的 比较 
(a) 欧 拉 法 与 精确 解 的 比较 ，(b) 改进 的 欧 拉 法 与 精确 解 的 比较 ， 
(c) 龙 格 一 库 塔 公式 与 精确 解 的 比较 ，(d) 三 种 方法 的 比较 。 


对 多 数 好 条 件 问题 ， 都 能 获得 好 的 结果 。 
练习 12 ”比较 不 同 算法 用 于 “ 非 光滑 ” 解 时 的 结果 。 用 显 式 欧 拉 法 公式 和 标准 四 阶 龙 格 - 库 塔 


法 水 解 | 并 计算 yO 并存 一 张 图 上 出 解 明 线 
》 一 
练习 19 “初步 认识 刚性 微 方 程 。 任 意 选 用 一 种 你 知道 的 显 式 方法 ， 取 不 同步 长 ， 求 解 
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学 =-2000u + 999.75v +1000.25 


uy ， 并 分 析 计算 结果 ， 提 出 改进 精度 的 有 效 算法 。 


u(0) =0v(O)=-2 


练习 14 〈 解 初 值 问题 的 各 种 方法 的 比较 ) 给 定 的 初 值 问题 。 
y=2y+x e’, 1]<x<2 
Xx 
y(D=0 
其 准确 解 为 y=x(e*-e), 分 别 按 下 列 方案 求 它 在 节点 x =1+0.1k(k=1,2,…,10) 处 的 数值 解 及 
误差 ， 比 较 各 方法 的 优 缺 点 。 
方案 I 欧 拉 法 ， 步 长 h=0.025,h=0.1; 
方案 了 ”改进 的 欧 拉 法 ， 步 长 h=0.05,h=0.1; 
方案 II 四 阶 标准 龙 格 - 库 塔 法 ， 步 长 h=0.1。 


27.3 ”收敛 性 和 稳定 性 


各 种 欧 拉 公式 和 龙 格 一 库 塔 公式 的 共同 特点 是 :计算 + 时 只 用 到 这 一 步 的 信息 ， 统 称 
单 步 法 。 如 果 还 用 到 前 一 步 y, ,甚至 y,,,…, 这 就 叫做 多 步 法 。 我 们 已 经 用 单 步 法 求解 了 一 些 
常 微分 方程 ,也 在 数值 上 与 精确 解 做 过 比较 , 但 是 在 理论 上 近似 解 是 否 收 敛 于 精确 解 ， 总 的 误 
差 如 何 估计 ? 本 节 简 单 介绍 单 步 法 的 收敛 性 与 稳定 性 。 


27.3.1 收敛 性 


通过 前 面 的 讨论 可 以 看 到 ， 微 分 方程 数值 解法 的 基本 思想 是 : 通过 某 种 离散 化 手段 ， 将 微 
分 方程 转化 为 差分 格式 求解 。 当 步 长 h 一 0 时 ， 差 分 解 》 是否 收敛 于 微分 方程 之 解 y(x) ， 这 
就 是 差分 格式 的 收敛 性 问题 。 

用 一 种 数值 方法 求解 方程 (27-1)， 对 于 任意 固定 的 x = 为 +nh， 近 似 解 和 精确 解 分 别 记 作 
yy)， 车 当 h 一 0 时 (必然 a 一 )， 有 yy 一 y(%，)， 则 称 该 数值 方法 收敛 ， 单 步 法 ( 显 
式 ) 可 以 统一 地 表 为 如 下 形式 : 

yr = + hp(%,, yA (27-25) 
其 中 p(x, yy, 有 称 为 增 量 函 数 。 如 对 向 前 欧 拉 公式 (27-3)，g = f(x,y) ; 对 改进 的 欧 拉 公式 
(27-1D), 9= SEOWD+tSCth Yt) 


2 
关于 单 步 法 的 收敛 性 和 整体 误差 有 以 下 定理 。 
定理 设 一 种 单 步 法 (27-25) 具 有 p 阶 精度 ， 增 量 函 数 关 于 y 满足 李 普 希 北条 件 


le G(x,y,A) -p(x,7,|< Ly -| (27-26) 
且 方 程 (27-1) 的 初始 值 是 精确 的 ， 则 该 方法 收敛 ， 且 整体 误差 
€, = yx,)—y, =O(h’) (27-27) 
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由 定理 知 ， 整 体 截 断 误 差 比 局 部 截断 误差 的 阶 数 低 一 阶 。 前 面 介 绍 的 向 前 欧 拉 公 式 、 改 进 
的 欧 拉 公式 ， 四 阶 龙 格 - 库 塔 公式 都 是 收敛 性 的 ， 它 们 的 误差 分 别 为 o0D，o02)，O0a)。 


27.3.2” 单 步 法 的 稳定 性 


数值 计算 精确 是 讨论 收敛 性 的 前 提 , 而 实际 上 , 舍 入 误差 的 存在 使 每 一 步 的 计算 都 有 偏差 。 
利用 差分 格式 求解 时 , 初始 误差 及 计算 过 程 中 的 舍 入 误差 能 否 得 到 控制 , 这 就 是 差分 格式 的 稳 
定性 问题 。 

由 于 研究 的 对 象 不 同 ， 关 于 稳定 性 的 定义 很 多 ， 这 里 只 介绍 一 种 一 一 绝对 稳定 性 。 

由 于 实际 问题 中 微分 方程 (27-1) 的 右 端 f(x,y) 复杂 多 样 ， 这 给 研究 稳定 性 带 来 了 困难 ， 
此 通常 取 以 下 的 模型 方程 为 基础 进行 研究 

y =Ay (4<0) 

其 中 1 为 常数 ，4 < 0 表示 微分 方程 本 身 是 稳定 的 。 

若 取 步 长 六 用 某 种 差分 格式 解 模 型 方程 时 ， 任 何 一 步 产生 的 含 入 误差 在 以 后 的 计算 中 引 
起 的 误差 逐渐 减弱 ， 则 称 该 差分 格式 关于 z=4 疡 是 绝对 稳定 的 ， 使 差分 格式 稳定 的 所 有 z 值 
的 集合 称 为 绝对 稳定 区 间 。 例 如 ， 将 向 前 欧 拉 公式 用 于 模型 方程 =4y 得 
yu = 多 tirG)=(+4JDw 。 不 妨 设 在 》 上 有 误差 gs,, 则 由 此 引起 wy ,, 的 误差 6,, 满足 
> +E =(1+A4h)(y, +e,)。 所 以 

en =(1+ANe, (27-28) 

显然 ， 要 保证 误差 逐渐 减弱 ， 必 须 使 z=4h 满 足 |1+z|<1 即 -2<z<0。 可见 欧 拉 公 式 的 绝对 


稳定 区 间 是 (-2,0) 。 它 表明 ， 对 模型 方程 y》 = 和 y(A4<0), 步 长 h 必须 满足 0<h<| 一 | 才能 保证 


2 

A 

欧 拉 公式 数值 稳定 。 表 27-3 列 出 了 各 种 单 步 法 的 绝对 稳定 的 表达 式 和 它们 的 绝对 稳定 区 间 。 
表 27-3 单 步 法 的 绝对 稳定 区 间 


欧 拉 法 1+Ah ~2<Ah<0 


2 
改进 的 欧 拉 法 1t4h+ C2 _2<Ah<0 


标准 四 阶 R-K 法 区 +0 凡 + 二 人 -2.785< 4 天 <0 


-oo<4j<0 


—oo<Ah<O 


从 表 27-3 中 可 以 看 到 ， 隐 式 公式 比 同 阶 显 式 公式 的 稳定 区 间 大 。 
研究 一 般 方程 》= f(x,y) 的 稳定 性 时 ， 加 相当 于 模型 方程 中 的 入 。 例 如 对 欧 拉 公式 
yn = ,+h x, y) 
设 y 有 误差 6 ， 则 由 此 引起 y, 的 误差 6,, 满足 
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ynHl + En yn 十 En + hf (x,,y, +E,) 


所 以 
gn =E, +h[f (x ys +e)- f(xy,)]=e, th 
-+hY Ca),)e 
9y 
式 中 由 在 y,+ 6 与 % 之 间 ， 与 式 C7-28) 相 比 ， 可 知 站 起 着 的 作用 ， 因 此 为 了 保证 数 信访 法 


的 绝对 稳定 ， 记 人 应 光 在 它 的 绝对 稳定 城中 
综 上 所 述 ， 当 用 数值 方法 解 微 分 方程 时 ， 步 长 h 的 选择 由 两 个 因素 确定 。 一 是 精度 要 求 ， 
由 收 全 性 可 知 ，h 越 小 精度 越 高 。 二 是 稳定 性 要 求 ， 人 .37 应 落 在 所 选 公式 的 绝对 稳定 城中 。 


虽然 h 十 分 小 时 两 个 条 件 都 能 满足 , 但 h 太 小 计算 步 数 势必 大 增 , 每 步 的 微小 误差 累积 起 来 也 
很 可 观 。 因 此 ， 实 际 计 算 中 在 满足 精度 要 求 与 稳定 性 的 条 件 下 ， 步 长 h 应 尽 可 能 取得 大 些 。 
常 微分 方程 初 值 问题 


人 
yGD =0 

其 精确 解 为 y(x) =e<*+x-1-e1。 分 别 取 有 =12,4， 用 经 典 四 阶 R-K 法 计算 ， 计 算 结果 见 表 
27-4， 图 形 比较 如 图 27-7。 


表 27-4 经 典 四 阶 R-K 方 法 的 稳定 性 实验 结果 


12 
Jo 
8 
6 
4 


4 6 8 10 12 
27-7 不 同步 长 计算 结果 的 比较 


由 于 R-K 法 的 绝对 值 稳定 区 间 是 -2.785< 和 hh<0。 本 实验 中 ， 和 = 户 =-1， 因 此 ， 当 
hh<2.785 时 ， 该 方法 才 稳 定 。h=1 和 h=2 在 稳定 范围 内 ， 计 算 结果 确实 稳定 。h=4 超 出 了 范 
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围 ， 结 果 发 散 。 另 一 方面 h 为 1 的 计算 精度 比 h 为 2 的 计算 精度 高 。 因 为 h 越 小 , 方法 的 截断 
误差 越 小 。 但 车 及 过 分 小 的 话 ， 计 算 步 数 非常 多 ， 其 累积 误差 会 增加 。 所 以 ， 实 际 计算 时 ， 应 
选取 合适 的 步 长 。 
这 ( 步 长 对 计算 结果 的 影响 〉 用 欧 拉 公式 求 下 述 初始 问题 在 x=1 处 的 近似 解 ， 并 与 准确 
解 yD) =1 比 较 。 


i 

y(0)=1 

解 ， 分别 取 步 长 h=10*、h=10*、h=103、 有 h=10* 进行 计算 ， 结 果 见 表 27-5。 
表 27-5 计算 结果 


WE i 
0.90438207503x10' 0.999999000001 0.99999990000 


由 表 27-5 中 数据 可 见 ， 步 长 不 同 效 果 大 不 一 样 ， 当 h=10"1、h=10” 时 结果 完全 失真 ， 
而 取 h=10“ 比 h=10” 计算 量 增加 了 十 倍 ， 但 解 的 精确 度 却 基本 一 样 ， 可 见 取 h=107 太 浪 费 
计算 量 了 。 

上 述 结果 差异 很 大 的 原因 在 于 欧 拉 公式 的 绝对 稳定 区 间 为 -2，0) ， 步 长 h 应 满足 


he (2.0) 。 在 本 实验 中 je)=-10000-z+25 世 =-1000 故 应 取 h 满足 -2< 


-1000h<0 即 0<h<2x103。 
可 见 取 hh=107"* 和 hh=107 时 欧 拉 公 式 是 数值 不 稳定 的 ， 导 致 结果 失真 ， 而 取 h=10” 和 
h=107 都 满足 稳定 性 要 求 ， 可 用 于 求解 。 
实验 结果 表明 : 求解 微分 方程 时 一 定 要 注意 步 长 的 选取 ， 过 大 则 导致 解 的 失真 ， 过 小 又 会 
使 计算 量 大 增 。 究 竞 取 多 大 步 长 才 合 适 , 不 仅 取 决 于 所 采用 的 数值 方法 , 还 决定 于 待 解 微分 方 
程 本 身 的 特性 。 
练习 15 确定 一 步 算法 wx, =Qy,+h(Bf.+Yfin) 中 的 常数 ,PB,y， 使 得 算法 可 以 给 出 方程 。 
| 3 n=0,1 
y(0)=0 
的 精确 解 ， 然 后 判断 算法 是 否 收敛 的 。 
练习 16 ”对 于 初 值 问题 : 
0 
y(0)= y。 #0 
假设 它 的 解 为 y= 利用 yx ) = y,,y, = 了 确定 参数 a,bp， 然后 取 y= 一 -< 一 就 得 


x,+h+b 
到 非 线 性 一 步 算法 。 
(1) 给 出 计算 mw 的 公式 ; 
(2) 给 出 它 的 局 部 截断 误差 ; 
(3) 分 析 其 稳定 性 〈 利 用 模型 问题 ) 。 
练习 17 ”对 于 初 值 问题 
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| =-1000(y — g(x) + 8 (x) 
>y(0) = g(0) 
其 中 g(x) 为 已 知 函 数 。 其 解 y(x) = g(x)。 

(1) 若 用 欧 拉 法 求解 ， 从 稳定 性 考虑 步 长 应 在 什么 范围 内 选取 ? 

(2) 若 用 后 退 欧 拉 法 求解 ， 从 稳定 性 考虑 ， 步 长 有 没有 限制 ? 

(3) 若 g(x) 为 不 超过 一 次 的 多 项 式 ， 用 欧 拉 法 求解 此 问题 时 ， 从 精确 度 考 虑 ， 步 长 的 选取 
有 无 限制 ? 

(4) 取 g(x)=x， 分 别 以 步 长 h=0.1,0.001,0.0001 的 欧 拉 公 式 计算 5 步 ， 分 析 其 计算 结果 
并 得 出 结论 。 
练习 18 〔〈 常 微分 方程 性 态 和 R-K 法 稳定 性 实验 ) 考察 下 面 微分 方程 右 端 项 中 函数 y 前 面 的 
参数 对 方程 性 态 的 影响 〈 它 可 使 方程 为 好 条 件 或 坏 条 件 ) 和 研究 计算 步 长 对 R-K 法 计算 稳定 
的 影响 。 设 常 微分 方程 初 值 问题 

| 0<x<l 
y(0)=1 
其 中 ，-5$0< wx <50。 其 精确 解 为 y(x)=e”*+x。 用 四 阶 经 典 R-K 法 计算 并 回答 以 下 问题 。 

(1) 对 参数 a ， 分 别 取 4 个 不 同 的 数值 ，1 个 大 的 正 值 ，1 个 小 的 正 值 ，1 个 绝对 值 小 的 负 
值 和 1 个 绝对 值 大 的 负 值 。 取 步 长 h=0.01， 分 别 用 四 阶 龙 格 - 库 塔 法 计算 , 将 4 组 计算 结果 画 
在 同一 张 图 上 ， 进 行 比较 并 说 明 相 应 初始 值 问题 的 性 态 。 

(2) 取 参 数 w 为 一 个 绝对 值 不 大 的 负 值 和 两 个 计算 步 长 ， 一 个 步 长 使 参数 a h 在 四 阶 经 典 
龙 格 - 库 塔 法 的 稳定 域内 ， 另 一 个 步 长 在 四 阶 经 典 龙 格 一 库 塔 法 的 稳定 域外 。 分 别 用 四 阶 经 典 
龙 格 - 库 塔 法 计算 并 比较 计算 结果 。 取 全 域 等 距 的 10 个 点 上 的 计算 值 ， 列 表 说 明 。 


27.4 值得 进一步 研究 的 问题 


问题 1 利用 实际 例子 筛选 有 效 算 法 。 用 不 同 的 算法 于 下 面 的 方程 ， 挑 选 出 你 最 满意 的 算法 。 
也 可 以 自己 设计 新 的 算法 ， 看 看 能 否 比 前 面 介绍 的 更 好 。 
(1) y=(y + 区 )/x,y(l)=1 ， 计 算 到 x=2; 
(2) y= 了 + 和 -zy2)=-1 ， 计 算 到 x=4; 
G) y=yOsiny 一 9 本 "GD) < ， 计 算 到 x=2; 
(4) y =|ysinx|, y(D)=1 ,计算 到 x=2。 
提示 : 首先 确定 “满意 ”的 尺度 和 标准 。 可 以 比较 算法 的 效率 、 精 确 度 等 方面 。 
问题 2 检查 各 种 数值 算法 的 长 期 行为 。 给 定 方 程 组 
x(t) =ay(t) 
y(t) =—bx(t) 
x(0)=0 y(0)=b 
的 解 是 xoy 平面 上 的 一 个 椭圆 。 利用 你 已 经 知道 的 算法 , 取 足 够 小 的 步 长 , 计算 上 述 方程 轨道 ， 
看 看 哪 种 算法 能 够 保持 椭圆 轨道 不 变 。( 计 算 的 时 间 等 要 足够 多 ) 
问题 3 一 个 初始 重量 为 1350kg 〈 包 括 燃料 1080kg) 的 小 火箭 ， 点 燃 后 垂直 向 上 运动 ， 火 箭 
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中 的 燃料 以 18kg/s 的 常 速 燃烧 。 提 供 3150kg 的 动力 .假定 大 气 阻力 与 速度 平方 成 正比 D=kv， 
且 设 空气 运动 阻力 系数 k=0.039kg.s/m?* 。 试 用 四 阶 标准 龙 格 - 库 塔 法 ， 步 长 h=0.1。 求 燃料 烧 
尽 之 前 的 位 移 、 速 度 、 加 速度 的 变化 规律 。 

提示 : 设 火箭 位 移 为 》。 作 用 在 火箭 上 的 力 有 :; 推力 F =3150; 时 刻 t 时 火箭 的 重量 引起 
的 重力 W=1350-18t ;大 气 阻 力 刀 =0.039%(y) 。 根 据 牛 顿 第 二 定律 的 运动 微分 方程 


》 -一 8- 旬 0， 初始 条 件 yX(0)=y (0) =0 。 求 解 范围 : te [0,T], 其 中 T= 1080/18= 
60(S) 。 s 
问题 4 研究 种 群 竞争 模型 ， 当 甲 、 乙 两 个 种 群 各 自生 存 时 ， 数 量 演变 服从 下 面 的 规律 : 

i xD = Fr- ,y(t) = 5y(1— 


其 中 ，x(t) , y(t)， 分 别 为 1 时 刻 甲 、 乙 两 个 种 群 的 数量 ，7 ,为 其 固有 增长 率 ，n ,nn 为 它们 
的 最 大 容量 。 而 当 这 两 个 种 群 在 同一 个 环境 中 生存 时 , 由 于 乙 消耗 有 限 资源 对 甲 的 增长 产生 影 
响 ， 将 甲 的 方程 修改 为 
xz)=nxl- 二 -5 之 ) (27-43) 
而 用 


这 里 s 的 含义 是 ， 对 于 供养 甲 的 资源 而 言 ， 单 位 数量 乙 (相对 n, ) 的 消耗 率 为 单位 数量 甲 ( 相 
对 nm 〉 消耗 的 5 倍 ， 类 似 的 ， 甲 的 存在 也 影响 了 乙 的 增长 ， 乙 的 方程 应 该 改 为 


y(D) =nx(-s, -之 ) (27-44) 
nm i 


给 定 种 群 的 初始 值 为 

Xx(0)=% ,7y(0)=Y (27-45) 
及 参数 ,r,s ,5, ,nn ,加 后 ， 方 程 (27-43)，(27-44) 确 定 了 两 种 群 的 变化 规律 ， 因 其 解析 解 不 
存在 ， 试 用 数值 解法 研究 以 下 问题 : 

(1) 设 甩 ==1, m=n, =100,s5 =0.5,s,=2, 罗 ==10， 计算 x(2),y(t)， 画 出 它们 的 图 
形 ， 说 明 时 间 上 充分 大 以 后 x(?),y() 的 变化 趋势 (人们 今天 看 到 的 已 经 是 自然 界 长 期 演变 的 结 
果 )。 

(2) 改变 让, 疡 ,为 ,加 ,但 ,92 不 变 (或 保持 ss<1,s,>l1 ) 并 分 析 所 得 的 结果 ， 若 
5=1.5(>1), s,=0.7(<1) ， 再 分 析 结果 ， 由 此 你 得 到 什么 结论 ， 请 用 各 参数 生态 学 上 的 含义 作出 
解释 。 

”3) 试验 当 s=0.8(<1), s,=0.7(<1) 时 会 有 什么 结果 ; 当 s =1.5(>1) , s,=1.7(>1) 又 会 出 现 什么 
结果 ， 能 解释 这 些 结果 吗 ? 
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实验 二 十 八 算 上阵 特 征 值 问题 的 数值 解法 


工程 技术 中 的 振动 问题 和 稳定 性 问题 以 及 微分 方程 的 求解 问题 等 ， 往 往 需要 计算 矩阵 ( 指 
方 阵 ) 的 特征 值 和 特征 向 量 。 设 4 为 n 阶 方 了 泗 ， 所 谓 4 的 特征 值 问题 是 求 数 4 〈 一 般 是 复数 ) 
和 非 零 向 量 x， 使 

Ax=Ax 
数 和 叫做 矩阵 4 的 一 个 特征 值 ， 而 非 零 向 量 x 是 相应 的 特征 向 量 。 这 个 问题 等 价 于 求 使 方程 
组 (4-47xr=0 有 非 零 解 的 数 4， 与 相应 的 非 零 解 向 量 x。 

如 何 求 出 特征 值 4 昵 ? 当 4 的 阶 数 很 低 时 ， 可 以 先 求 出 特征 多 项 式 det(4- 47) 的 展开 式 
a4"+a 4 +…+0， 然 后 用 实验 二 十 四 中 介绍 的 解 高 次 方程 的 数值 方法 求 出 特征 多 项 式 的 
根 。 当 方程 次 数 很 高 时 求 根 极为 困难 ， 所 以 这 种 做 法 效果 不 好 。 另 外 ， 在 很 多 实际 问题 中 , 具 
体 要 求 也 有 不 同 。 有 些 只 要 求 矩 阵 4 的 绝对 值 最 大 的 特征 值 及 其 相应 的 特征 向 量 。 目 前 求 特 
征 值 和 特征 向 量 比较 有 效 的 方法 是 迭代 法 和 变换 法 。 


; 28.1 乘 井 法 
28.1.1 乘 知 法 
设 n 阶 矩阵 4 的 nn 个 特征 值 满足 
[4%|> | |=:…>|4,|=0 (28-1) 


并 且 有 对 应 的 个 线性 无 关 的 特征 向 量 二 ,x,,…,x，( 即 短 降 4 可 对 角 化 )。 其 中 ， 模 最 大 的 和 
征 值 4 ， 称 为 主 特征 值 ， 对 应 的 特征 向 量 x, ， 称 为 主 特征 向 量 。 在 上 述 条 件 下 ， 显 然 为 非 
零 单 实 根 ，5 为 实 向 量 。 乘 宕 法 就 是 求 矩阵 主 特征 值 及 相应 的 特征 向 量 的 一 种 基本 方法 。 
乘 惫 法 或 简称 军法 ， 它 的 基本 思想 是 ， 对 于 给 定 的 非 零 实 向 量 v。e R"， 用 和 矩阵 A 对 办 连 
续 左 乘 ， 构 造 迭代 过 程 
v=Av, ,=A k=1,2,. . (28-2) 
按 特征 向 量 的 假设 条 件 ，m 可 表示 为 v。= > wx ， 从 而 


i=] 


.=A Don =Yoais,= = tonto] | 
车 记 (x,), 为 x 的 第 1 个 分 量 ， 则 有 
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如 果 awi 关 0 以 及 (zi) 关 0， 那 么 由 条 件 〈28-1》 可 知 ， 当 天 充分 大 时 有 


Vi ~ A'ON, Cy - 4 (28-3) 
(Pt 

因此 特征 向 量 可 以 相差 任意 非 零 常数 倍 ， 故 (28-3) 式 的 第 一 式 表明 ， 当 充分 大 时 vy 近 
似 于 主 特征 向 量 。(28-3) 式 的 第 二 式 表明 ， 当 & 充分 大 时 ， 相 邻 两 次 迭代 向 量 与 w 的 对 
应 非 零 分 量 的 比值 近似 于 主 特征 值 。 

选 代 过 程 〈28-2) 式 为 寡 法 的 原始 形式 ， 它 并 不 实用 。 这 是 因为 ， 当 | | <1 时 ， 六 趋 于 
零 向 量 ， 当 |),|>1 时 六 的 非 零 分 量 无 界 ， 所 以 计算 时 会 出 现下 溢 或 上 溢 。 为 了 能 在 实际 计算 
时 避免 这 一 缺陷 ， 应 该 在 欠 代 的 每 一 步 使 向 量 “ 标 准 ”化 ， 即 任意 给 出 ?@ #0， 令 ao =v 中 
再 反复 计算 下 式 


— Ay (kt-D 
1 a Ei (28-4) 
这 里 ，max(y) 是 向 量 v 按 模 最 大 的 分 量 ， 比 如 y=(1,-3,2)”， 则 max(y)= 3。 

假设 4 为 实 和 矩阵， 其 特征 值 满足 12 ,4 ;1>…>14， 1, 向 量 序列 {a@,v 直 ， 由 (28-4) 式 
确定 ， 则 maxby 中 ) 志 sa 二 /max(n)。 
重用 条 守法 计算 矩阵 


绝对 值 最 大 的 特征 值 及 其 对 应 的 特征 向 量 。 
解 : 取 uw =v =(,11)”， 用 (28-4) 式 进行 迭代 ， 计 算 结果 见 表 28-1。 


表 28-1 计算 结果 


-0.75000000 ， -0.75000000 

-0.71428567 4 -0.71428567 

-0.70833343 3 -0.70833343 3.42856976 
“0.70731699 。 -0.70731699 3.41666603 
-0.70714301 -0.70714301 3.41463280 
-0.70711291 -0.70711291 3.41428566 
-0.70710796 >» = -0.70710796 3.41422462 
-0.70710689 ， -0.70710689 3.41421589 


0 
1 
2 
3 
4 
5 
6 
7 
8 
9 


i 
b= 


由 表 28-1 可 知 ， 和 迭代 到 10 次 时 ， 可 得 4 = 3.4142 ， 对 应 的 特征 向 量 为 
由 = (~0.70710689,1.00000000,—70710689) 
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4 的 精确 特征 值 及 特征 向 量 为 
1, =2+V2 =3.414213562…， 
”= (LV2,-D =V2(-0.7071067.…,1,—0.7071067.…) 
由 此 可 知 ， 迭 代 10 次 时 ， 求 得 的 特征 值 有 $ 位 有 效 数 字 ， 而 特征 向 量 有 6 位 有 效 数字 。 
练习 1 用 乘 窜 法 求 下 列 和 矩阵 的 主 特征 值 和 主 特征 向 量 。 


2 -1 -2 3 ,2 
(DA4=|8 8 4 (2)A=|I-2 6 -2 
3 1 | -4 -2 
-4 9 16 3 -4 3 
G)4=| 2 -2 二 (4=|-4 6 3 
-4 7 12 3 3 | 


练习 2 ”选择 不 同 的 选 代 初始 向 量 w ， 对 练习 1 中 的 问题 进行 研究 。 请 回答 初始 向 量 w 的 选 
取 对 和 迭代 次 数 是 否 有 影响 ? 并 设法 找到 一 定 的 规律 。 
练习 3 ”比较 练习 1 中 用 乘 守 法 求 各 矩阵 的 主 特征 值 的 迭代 速度 ， 并 解释 其 原因 。 
28.1.2” 雷 利 ( Rayleigh ) 商 加 速 法 
由 线性 代数 的 知识 ， 当 4 是 对 称 矩 阵 时 ，4 的 特征 值 4, > 4, >…> 和, 所 对 应 的 特征 向 量 


ra 可 以 组 成 规范 化 正 交 组 ， 即 (5,z)= 1，; 二。 ， 且 当 为 任意 非 从 向 量 时 ， 有 


fe 


其 中 ，《 人 3: 划 称 为 雷 利 商 ， 并 有 1 =max 《人 9， 


(x, Xx) (Xx, x) 
设 用 乘 萌 法 计算 特征 值 和 4, ， 已 经 欠 代 到 第 大 次 ， 则 有 
| Atu, A 
WU k Wn = A =— 
max(A*u,) max(A zxo) 


对 作 一 次 雷 利 商 ， 得 


> a N+! 2k 
(Au,u ) (4 oh ) = 2 二 =4， "| 


Cat) (Miuos Mo) DE 


上 式 说 明 ， 如 果 每 闪 代 一 次 ， 就 用 雷 利 商 加 速 一 次 ， 可 以 使 收敛 速度 提高 很 多 。 
练习 4 ”对 实验 1 的 矩阵 用 雷 利 商 计算 ， 并 比较 两 种 方法 的 迭代 速度 。 
28.2 ”计算 实 对 称 和 矩阵 特征 值 的 雅 可 比 法 


雅 可 比 〈Jacobi) 方法 是 一 种 求实 对 称 和 矩阵 全 部 特征 值 及 相应 特征 向 量 的 方法 。1846 年 由 
雅 可 比 首 先 给 出 。 它 的 基本 思想 是 ， 通 过 一 系列 的 正 交 相似 变换 ， 化 实 对 称 和 矩阵 A 为 对 角 算 
阵 。 这 个 对 角 矩 阵 的 对 角 线 元 素 就 是 4 .的 特征 值 ， 而 这 些 正 交 变换 阵 的 乘积 阵 的 各 列 就 是 相 
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应 的 特征 向 量 。 


28.2.1 古典 雅 可 比 法 


先 设 4 为 二 阶 对 称 矩阵 ，4= (ay) ,， 且 as=ay#0， 令 
cosO Sing 
R= 
0 0 
R 叫 旋 转 阵 ， 显 然 对 任何 8 ，R 为 正 交 阵 。 令 | 
40 = RAR = (a9 )» 
由 矩阵 的 习 法 ， 有 
au =ancos’ 0+2a, sinO cosO + ay, sin’ 6 
ad =a sin’0 ~2a, sinO cosO + a, cos’0 (28-5) 


da =ay =(4, —ai1)sinO cos0@ + a,, (cos’ 0 ~ sin’ 0) 


由 (28-5) 式 的 最 后 一 式 可 知 ， 当 0 满足 tan29 = 一 <22 一 时， 有 a =ag =0。 这 就 是 说 ， 


1™ G22 


4 为 二 阶 实 对 称 矩 阵 时 ， 用 适当 的 旋转 相似 变换 一 次 就 可 化 4 为 对 角 阵 。 当 4 为 n 阶 实 对 阵 
和 矩阵 时 ， 要 用 到 阶 旋转 阵 


cos@ ... sin0 
R(i, j,0)= -SinO … cosO 


1 


它 与 n 阶 单位 阵 的 区 别 仅 在 于 如 上 式 右 端 标 出 的 4 个 元 素 ， 易 知 R(p,g,0 ) 为 正 交 阵 。 
雅 可 比方 法 就 是 用 一 系列 的 旋转 相似 变换 逐步 化 4 为 对 角 阵 。 具 体 地 说 ， 令 
hh =4,4 = 尺 ARI ,4 = RA 1Ri,…。 恰 当地 选取 每 个 旋转 阵 R， 就 可 以 使 用 A 趋 于 对 角 
阵 。 
令 尺 ,= R(p,9,96) ， 由 RR, 的 特殊 形式 可 知 A, 与 A 的 差别 仅 在 p,q 行 及 p,q 列 的 元 素 ， 
由 矩阵 的 乘法 有 


(k+l) _ p(k) (DO on A k+l) 
a =ap COSO 十 Go sinO =a, 

(k+l) ok) es (bb (Kk+D) , 

ay =-ay Sin +ay cosO =ajy jp,q 
(K+D) ok) nc2 (k) 。， (k) 102 

Go = COS 0+2a, sinO cosO +ay, sin’0 


28-6) 
kt) ok) in2p DC si (k) nc2 ( 
ao =ay, Sin 9 2a, sinO cosO + a cos 0 

(K+1) 人) (k) + (£) 2 i 二 (天 十 1) 
Ga =(a® da )sinb cos8 + a (cos’ 0 —sin’ 0) Ga 
CCk+D 


(k) 
;3 


=a;, i,jzp,q 


由 (28-6) 式 易 知 
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(eg ) + (0") =( 罗 ) +(o9) j#p'g 

(el ) =(aP), bj#p,q 
于 是 ，(awp) +(akm) +2(ako) =(a9) +(ao) +2(a) 。 若 ago #0, 而 选 6 使 wm =0， 
即 6 满足 


(k) 
2a 所 


tan 20 = a a 


(28-7) 


则 有 (e+(a? =(e%)+(e8》+2(%。 令 
D(A)= Va? ，S(A)= Yas 
i=l i 
由 于 aG=aW,iz# p,qg， 所 以 
D(Ain)=D(A)+2a@) ,SAn)= 5(h) -2am) 
这 就 是 说 只 要 a 0，, 那么 按 上 述 方法 构造 的 旋转 阵 RC(p,q,0) 对 A 变换 之 后 就 会 使 对 角 


线 元 素平 方 和 增加 , 而 非 对 角 线 元 素平 方 和 减 小 。 但 不 要 认为 经 过 有 限 次 这 样 的 变换 就 可 以 将 
4 化 为 对 角 阵 ， 事 实 上 若 在 某 一 步 变 换 时 将 qj, 化 为 零 ， 在 以 后 的 变换 中 a, 有 可 能 变 为 非 零 。 
古典 雅 可 比 法 总 是 在 每 一 变换 中 选 A 的 非 对 角 元 素 ， 按 模 的 最 大 者 充当 a% 〈 称 为 主 元 )， 可 
以 证 明 ， 当 大 一 时 有 4 一 diag( 人 用, 筷 ) 

当 4 的 阶 数 较 高 时 ， 用 雅 可 比方 法 需要 迭代 很 多 次 〈 即 变换 很 多 次 )， 因 此 每 一 步 迭 代 中 
应 尽量 减少 计算 量 ， 下 面具 体 给 出 每 一 步 迭 代 计 算 的 方法 。 

(1) 确定 旋转 阵 R(p,g,0) 


设 aw #*0， 由 (28-7) 式 有 tan26 =: 


a®) 
ee (CE) » 这 里 限定 els < 也 7 
pp 一 4aa 


当 aw = a 时 ， 取 6 = sign (a 局 局 所 以 


cos0 = 
2 (28-8) 
sin0 = sign(a 0 jcos6 
当 ag #a 由 时 ， 令 
1 2a®) 
tan 20 = 一 = 一 全 (28-9) 
5 PP Gag 
则 ，tan?8+2cot0 -1=0，tan0 =-ctVc?+1。 
为 了 避免 数值 接近 的 数 相 减 ， 取 
sign(c) 
t=tan0 = 一 一 天 一 一 (28-10) 
lcl+wVc2+1 
最 后 得 
cos0= 2 ， SinQ =tcos0 (28-11) 
yl+r? 
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(2) 旋转 阵 乘积 的 计算 
令 4=4 则 各 =RAR', A=RAR: = RR RARI RERE. Ht = RiR2 … Re ， 
约定 Hi = 巨 ， 于 是 


Hi=HiR ， 大 =12… 
全 =H,AH: 
由 于 大 一 o 时 ，4. 王 对 角 阵 ， 所 以 HI 的 各 列 就 是 近似 特征 向 量 ，Hi 的 计算 可 用 递 推 关 
系 式 (28-12)， 其 元 素 关 系 如 下 ， 


(k) (kD) 
h, 学 加 cos@+ A "sing 


(28-12) 


oe 4-D 
a =— hh, sinO + hb ‘cos6 i=]1,2.…,n (28-13) 
(£) (£-1) , 
h=h ， j#p,g 
古典 雅 可 比 法 的 计算 步骤 是 : 


ay 


(1) 选 主 元 ， 即 确定 at ， 使 a9|=max 


| 


(2) 按 (28-8) 式 或 (28-11) ed 

(3) 按 (28-13) 式 计算 新 正 交 阵 及 ,1 的 元 素 ; 

(4) 按 (28-6〉 式 计算 4, 的 元 素 ， 其 中 ao ,ak 令 其 为 零 。 
(5) 以 上 各 步 重复 执行 ， 直 至 》 az <e ， 其 中 8 是 给 定 的 值 。 


i=2 
j<i 


用 古典 雅 可 比 法 求 


的 特征 值 、 特 征 向 量 。 
解 ， 用 选 绝对 值 最 大 的 非 对 角 元 素 消 零 取 9 = 所 sing = 并 ,cos9 = :2， 计 算得 
3 0 0.7071 
A=| 0 1 -0.7071 
0.7071 -0.7071 2 


具体 结果 见 表 28-2。 
于 是 从 表 28-2 中 可 得 ，4, = a =3.4142,1, ~a® =1.9998,1; = aG = 0.5859 。 


U=RR;RRR=|-07071 0 0.7071 


0.5000 0.7071 0.5000 
0.5000 -0.7071 0.5000 


即 
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I 0 0 
0 92660 LOCIO- 
0 ZL0CT0 92660 


0 I 0 
06600 0 05660 


ZbZ9 0 0 
0 


| 
| 


91S8'0 Zhzs’0 中 


| 
0 


L6sy0- 0 08880 


I 
区 TIL0L0 TL0L os 


0 TIL0L0 TL0L'0 


9266'0 = "9soo 
L0zI0= "urs 


S660'0= "bsoo 
06600= ‘Outs 


91IS8'0= ‘9s09 
ZbzS0= Outs 


0888`0= ,soo 
L6Sy0= 9urs 


TL040= "soo 
TL040= "us 


6S8S0 L910:0- 0z000 
L9I00- 8666I 0 |=Y 
0z000 0 Zblb’E 


6S8S0 89I00- 0 
S691°0-= oj 8910'0— TZ S6910-|=Y 
SEG6E'E 


89L7'0— 
89LZ0-= 02 0z0Z £0LI'0-1= 
50LTO0- 09g'eE 


6LZ9 0 一 0 
I 0sze0- I= 
09Z50- 099¢cE 


el z tL0L0- tL0L'0 
IL0LO= oo 1L0L0- I 0 |=y 


IL0L'0 0 上 


夏 间 和 孙 打 “ 导 秒 韩 莫 萎 水 玫 县 蓝 282 从 
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0.5000 0.7071 0.5000 
=| -0.7071| ,w=| 0 =| 0.7071 
0.5000 -0.7071 0.5000 


分 别 为 特征 值 41, 和 ,4 所 对 应 的 特征 向 量 。 和 矩阵 4 的 精确 特征 值 为 
1, =2+V2=3.4142,1, =2,1,=2—V2=0.5858 


练习 5 在 用 雅 可 比 法 计算 时 ,每 次 迭代 都 首先 要 在 全 部 非 对 角 元 素 选 主 元 , 若 4 的 阶 数 较 高 ， 
对 这 项 工作 的 耗 时 很 多 ， 请 设计 一 个 改进 的 算法 。 

练习 6 如 果 4 是 可 对 角 化 的 , 即 存在 矩阵 天使 得 X -4X =diag (1,42,…, 和 4,) ,而 且 有 和 = 
>|4:| >… 凡 ,|， 分 析 乘 军法 是 否 有 效 。 

练习 7 试验 不 同 的 (p,q) 选 取 方法 对 于 算法 的 影响 。 


28.3 ”值得 进一步 研究 的 问题 


问题 1 〈 研 究 另外 几 种 情况 下 的 乘 寡 法 ) 构造 可 对 角 化 的 矩阵 4e R” ， 它 的 特征 值 满足 
(1) 4 =42 = =,, 41>4 rH| 之" “| 
(2) A =-4,, [|>|2|=…=|4,| 
G) =，|4|>|24| 二 … 宇 凡 ， 

对 4 实行 容 方 法 ， 有 什么 结果 。 

问题 2 〈 分 析 “ 三 维 ” 牙 可比 算 法 的 数值 性 质 ) 雅 可 比 算法 可 以 看 成 选择 (1,r) 和 4 的 2x2 阶 


TR A=) (当然 ， 它 也 是 对 称 的 )， 计 算出 A (1,7) 的 特征 值 和 特征 向 量 ， 


然后 把 它 对 角 化 。 重 复 进行 这 个 过 程 直到 收敛 。 
把 上 面 的 方法 改 为 选择 (1,r,k) 和 A 的 3x3 阶 子 矩 阵 


dr dr Qe 
A rk)=| aa ar 
Gey Aer Ar 
类 似 地 建立 “三 维 ” 雅 可 比 算法 并 用 数值 例子 说 明 算 法 有 效 或 无 效 。 
试验 不 同 的 (Lr,k) 选取 方法 对 于 算法 的 影响 ， 把 “三 维 ” 雅 可 比 算法 改 成 “p 维 ”的 算法 


如 何 ? p 为 何 值 时 最 为 有 效 ? 
辣 最 。 和 法人 和 全息 了 的 征 和 是 ,2。， 和 利和 法 是 
(1) Me 为 某 个 特征 向 量 的 近似 ， 且 jjxol, =1， 对 于 k=0,1,2,… 


Pi=(Axi,xi) 
(2) 果 4-p 眉 奇异 ， 则 得 到 了 4 的 一 个 特征 值 ， 计 算 特 征 向 量 ， 停 止 。 
否则 sa = (A-piE) Kes Ker = Perl /yi 。 转 向 (2)。 
选择 一 个 特征 值 已 经 知道 的 矩阵 ， 实 验 上 述 算 法 。 
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实验 二 十 九 回归 分 析 


在 现实 问题 中 处 于 同一 个 过 程 中 的 一 些 变量 往往 是 相互 依赖 和 相互 制约 的 ,它们 之 间 的 相 
互 关系 大 致 可 分 为 两 种 : 

(1) 确定 性 关系 一 一 函数 关系 是 初等 数学 及 微 积分 学 中 研究 的 问题 。 例 如 ， 一 个 圆 的 半径 
RR 与 周 长 C 的 关系 可 表示 为 ， C =2TR 。 

(2) 非 确定 性 关系 些 变量 之 间 有 一 定 的 依赖 关系 ， 但 这 
种 关系 并 不 完全 确定 , 不 能 用 函数 形式 来 表达 , 这 些 变量 其 实 是 随机 变量 或 至 少 其 中 有 一 个 是 
随机 变量 。 例 如 : 身高 x 和 体重 y 的 关系 ，x 增加 时 ， 一 般 来 说 y 也 会 增加 。 但 由 x 并 不 能 严 
格 地 决定 y。 一 般 农作物 的 亩 产量 y 与 其 播种 量 x 施肥 量 x, 有 联系 ， 但 x 、% 不 能 严格 地 决 
定 y 等 。 

这 种 变量 间 既 互相 联系 但 又 不 是 严格 决定 的 关系 , 称 为 相关 联系 。 回归 分 析 就 是 研究 相关 
关系 的 一 种 重要 的 数理 统计 方法 。 利用 回归 分 析 , 可 以 从 变量 的 取 值 去 估计 作为 因 变量 的 一 个 
随机 变量 的 取 值 。 具 体 地 说 ， 回 归 分 析 是 在 一 组 数据 (x,y,)，i=1,2,…,n 的 基础 上 ， 研 究 以 
下 几 个 问题 : 

(1) 建立 因 变 量 n 与 自 变 量 x,x%,,…,% 之 间 的 回归 模型 (经 验 公 式 ); 

(2) 对 回归 模型 的 可 信和 度 进行 检验 ; 

(3) 判断 每 个 自 变量 x (i =1,2,…,n) 对 7n 的 影响 是 否 显著 ; 

(4) 诊断 回归 模型 是 否 适合 这 组 数据 ; 

(5) 利用 回归 模型 对 7 进行 预测 与 控制 。 


29. 1 “一 元 线性 回归 


只 有 一 个 自 变量 而 且 因 变 量 与 自 变量 间 关 系 存 在 线性 相关 关系 的 回归 分 析 称 为 一 元 线性 
回归 。 下 面 先 看 一 个 例子 。 
例 1 合金 钢 的 强度 与 钢材 中 碳 的 含量 x 有 密切 关系 。 为 了 冶炼 出 符合 要 求 强度 的 钢 ， 常 常 
通过 控制 钢水 中 的 碳 含量 来 达到 目的 。 为 此 需要 了 解 x 与 》 之 间 的 关系 。 本 例 收 集 数 据 见 表 
29-1 。 


表 29-1 数据 表 
| | 


0.03 0.04 0.05 0.09 0.10 0.12 0.15 0.17 0.20 
40.5 39.5 41.0 41.5 43.0 42.0 45.0 47.5 53.0 56.0 
29.1.1 散 点 图 
为 了 看 清 其 规律 ， 在 平面 上 取 一 个 直角 坐标 系 ， 把 每 个 样本 (Xx, y ) 标 在 这 些 坐 标 平面 上 
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得 到 一 个 点 。 若 样本 容量 为 x"， 则 得 到 由 个 点 的 散 点 图 如 图 29-1。 
画 散 点 图 ， 是 一 种 重要 的 整理 数据 的 方法 。 通 过 它 可 初步 了 解 两 指标 值 的 平均 、 散 布 与 其 


关系 的 大 致 情况 。 
955 
52.5 
50| / 
47.5 
45 
42.5 a 


证- 一 全 
01 0 0.2 


图 29-1 表 29-1 数据 的 散 点 图 


由 实验 十 八 的 讨论 ， 我 们 知道 两 个 变量 间 的 关系 用 样本 相关 系数 > 来 度量 。 设 
(x%, YE =], 2，……711) 表示 n 组 观察 数据 。 定义 样本 协 方差 


Ly, = -Dy,-D 
1 


FE 


样本 相关 系数 ，L， = 一 各 一 。 其 中 ,分 别 为 样本 坟 , 为 ,…,x, 和 多 六 的 方差 。 


ZL = -xX):， L, = Oo 中 ;hy 度量 了 x,y 两 变量 间 线 性 相关 程度 。 其 取 值 范围 为 -1 


<r<1， 由 实验 十 八 我 们 知道 : 
r=+t1， 完 全 线性 相关 ; 
r=0， 无 线性 关系 ， 即 不 相关 ; 
r>0，x 和 >y 正 相关 ， 即 有 一 定 的 正 线性 趋势 ; 
r 接 近 1,， x 和 y 间 有 强 的 正 线性 趋势 ; 
r<0 ,x 和 y 负 相关 ， 即 有 一 定 的 负 线 性 趋势 ; 
r 接 近 -1， x 和 y 间 有 强 的 负 线性 趋势 。 
29.1.2 ”模型 
观察 图 29-1 上 数据 的 分 布 规律 ， 可 以 发 现 : 这 些 数据 点 散布 在 一 直线 附近 ， 但 又 不 全 在 
一 条 直线 上 。 我 们 可 以 认为 y 和 x 之 间 的 关系 由 两 部 分 组 成 ， 一 部 分 是 由 于 x 的 变化 引起 的 y 
线性 变化 部 分 ， 记 为 a+bx， 另 一 部 分 是 由 其 它 一 切 随 机 因素 引起 的 ， 记 为 e， 则 
y=atbx+e | (29-1) 
在 式 〈29-1) 中， 我 们 假定 x 是 一 般 变量 ， 其 值 是 可 以 精确 测量 和 严格 控制 的 ，a 和 4b 是 
未 知 参数 ， 是 不 可 观测 的 随机 误差 ， 假 定 e 服从 正 态 分 布 N(0,0?) ， 从 而 
y~ Na+bxr,GI2) 
对 我 们 所 获得 的 观测 数据 (x, y,)(i=1,2,…,nn) 来 讲 ， 通常 还 假定 is 2 间 相 互 独立 ， 
从 而 得 到 一 元 线性 回归 的 数学 模型 


y=atbx +e,i=1,2,.…,n 
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其 中 各 8, 独立 同 分 布 ,其 分 布 为 NW(0,a?) 。 称 巨 y)=a+ 好 为 ?关于 zx 的 回归 函数 , 它 在 平均 意 
义 上 表明 了 y 与 x 之 间 的 一 种 统计 规律 性 。 当 x 已 知 时 ， 通 过 该 式 可 以 精确 地 算出 E(y) ， 由 
于 是 不 可 控制 的 随机 因素 ,通常 就 用 E(y) 作为 ?的 估计 , 记 作 了 。 

回 为 分析 的 首要 任务 是 通过 n 组 观察 值 (%,y,),…,(%x,,y,)， 来 估计 a 和 b， 常 用 最 小 二 乘 
法 或 极 大 似 然 法 进行 估计 。 

车 用 &,5 分别 记 ob 的 估计 值 ， 则 称 y=&+ 妈 为 y 关 于 x 的 一 元 线性 回归 方程 ， 由 于 此 
方程 的 建立 有 赖 于 通过 观察 或 实验 积累 的 数据 ， 有 时 也 称 为 经 验 回归 方程 或 经 验 公式 。 


29.1.3 参数 ab 的 估计 


29.1.3.1 最 小 二 乘 估 计 

最 小 二 乘法 是 用 曲线 和 方程 去 拟 合 数据 的 主要 方法 。 在 一 元 线性 回归 问题 中 ， 由 n 个 观 
察 数据 (如 图 29-1 所 示 ) (%,y)…,(%,y,)， 我 们 希望 确定 一 条 直线 ， 也 就 是 要 确定 a 和 bb 
的 估计 值 h 和 使 直线 y=&+Px 尽 可 能 好 地 拟 合 这 些 数据 ， 由 方程 

$=atbx 
当 x 取 值 x% 时， 多 应 取 a+bx， 而 实际 观察 到 的 是 y ， 这 样 就 形成 了 偏差 
€=y-(at+bx,) 
自然 对 所 有 的 x,y,， 若 &, 越 小 ， 则 直线 与 所 有 实验 数据 拟 合 得 越 好 。 显 然 
Qh) = Ye = P00, -oo 


刻画 了 所 有 观察 值 与 回归 直线 的 偏离 程度 。 
所 谓 最 小 二 乘法 就 是 选择 4,5， 使 
Q(6,b) =minQ(a,b) 
以 这 样 的 &,b 作为 (a,b) 的 估计 值 ， 所 得 回归 直线 y=&+Bx 是 在 所 有 直线 中 ， 与 点 
(x ,) 《=1…, 站 的 偏差 平方 和 最 小 的 一 条 直线 。 
由 微 积分 中 求 极 值 的 方法 ， 可 求 得 


二 3 
LL 
b= 
DC 
其 中 心 -> - 丰 D =>0 -7)",L, = -Xx)(y—7)。 
于 是 得 到 回归 方程 
y=A+bx 


离婚 人 数 的 统计 分 析 。 根 据 美国 的 统计 资料 ， 从 1975 年 一 一 1980 年 ，6 年 中 的 每 年 
的 离婚 人 数 如 表 29-2 (单位 ， 万 人 ): 


表 29-2 每 年 的 离婚 人 数 


问 离 婚 人 数 是 否 有 逐年 上 升 的 趋势 ? 如 有 ， 上 升 的 幅度 是 多 少 ? 
解 : 令 y 表 示 第 x 年 的 离婚 人 数 ， 若 逐年 上 升 的 幅度 一 样 ， 就 应 是 x 的 线性 函数 ; 
y=a+bx 
b 的 大 小 反映 了 平均 增加 的 离婚 人 数 。 
由 于 各 种 因素 的 作用 ，y 与 a+ bx 并 不 相等 ， 用 表示 相应 的 误差 ， 于 是 有 
y=a+bx+E, €E~N(0,0’) 


画 散 点 图 如 图 29-2。 


2» 
14.5 7 / 15 
14 过 


一 人 
43.5 了 i 
B Bi -7 4 
: . 2 


12.5| 一 二 二 二 
3976 1977 1978 1979 1980 


一 


4 
-一 


1976 1977 1978 1979 1980 
图 29-2 表 29-2 数据 的 散 点 图 〈 左 ) 与 回归 曲线 ( 右 ) 


下 面 用 几 种 方法 从 已 知 的 六 组 数据 (x,,y,) 来 估计 a,b。 
(1) 只 用 首尾 两 点 (1975,12.05) ，(1980,14.83) 定 出 直线 ， 由 两 点 式 得 直线 方程 为 
y=0.58x—1133.45 (29-al) 
(2) 用 前 两 点 的 中 点 (1975.5,12.36) 和 末 两 点 的 中 点 (1979.5,14.35) 求 直 线 方 程 。 此 时 连接 
这 两 个 中 点 的 方程 为 


y=0.5x—975.39 (29-a2) 
(3) 用 前 三 个 点 的 重心 和 后 三 个 点 的 重心 求 直线 方程 为 
y=0.61x 一 1192.82 (29-a3) 
(4) 用 最 小 二 乘法 ， 得 直线 方程 为 
y=0.542x—1058.32 (29-a4) 


练习 1 试用 随机 模拟 方法 来 比较 一 下 四 组 估计 ， 模 拟 步 骤 如 下 : 

1. 给 定 一 条 直线 y=a+bx,a,b 是 事先 取 定 的 常数 ， 对 每 一 个 确定 的 x ， 算 得 a+bx， 再 由 正 
态 随 机 数 生成 一 个 误差 e, e, ~ N(0,0”)，o’ 已 知 ， 将 ,加 到 a+bx 就 生成 y=a+tbx +e,， 
当 x=1975,…,1980 取 6 个 数 时 ， 用 上 述 方法 得 到 模拟 的 6 个 y 值 。 

2. 重复 1 中 的 模拟 方法 ， 得 到 500 组 模拟 的 6 年 的 数据 。 

3. 对 每 一 组 6 年 的 数据 分 别 用 上 述 四 种 方法 , 求 x 的 系数 b 的 估计 值 , 依次 记 为 ， 包 ,22,2, 。 
4. 画 直 方 图 ， 与 b 的 真实 值 比较 。 
建立 回归 方程 。 若 我 们 观察 得 到 10 组 数据 ( ,y),…, (Xo ,yo) ， 如 表 29-3。 


表 29-3 数据 表 
[| le be oa | 
| | eo | mw | wm | ws | wo | se | mn | sm | 
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解 : 画 出 散 点 图 如 图 29-3。 


29-3 ”观测 数据 的 散 点 图 


现在 来 建立 y 对 x 的 回归 方程 ，y=a+bx 。 用 最 小 二 乘法 求 &,5 及 方程 。 计 算 可 得 
L, =-8371.5, ,=285.8,L, =-2889.6 。 于 是 由 


得 2=2.431 =0.347 。 所 求 回归 方程 为 y>=2.431+ 0.347z 。 图 形 如 图 29-4。 


Fd 6 B10 
图 29-4 回归 曲线 图 


29.1.3.2” 极 大 似 然 估计 
考虑 到 y ~ N(atbx ,0”) i=1,2,…,n， 故 y 的 分 布 密度 为 


1 1 
——— eXp4——— ,e-bay | i=1,2,.…,n 
OV2n | 207” 


又 因为 y A 是 相互 独立 的 ， 所 以 它们 的 似 然 函数 为 
| 1 2 
"= pr ee | 


i 

-6 让] 

由 此 式 可 知 ， 使 似 然 函数 工 取 最 大 值 的 a,b， 也 就 是 使 函数 Q(a,b) = 六 (ya-bx) 取 最 小 值 
1=1 

的 a,b。 因 此 ab 的 极 大 似 然 估计 量 与 其 最 小 二 乘 估计 量 分 别 相等 。 


当 a,b 的 极 大 似 然 估计 量 4,5 已 经 求 得 时 ， 求 0? 的 估计 量 可 以 通过 解 似 然 方程 


olnL n 1 Cp 2 
+ -a-bx) =0 
a0’ 20? 30 名 


得 到 c 的 极 大 似 然 估 计量 为 
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作 2 ~ 
o =LYy, a-bx,) 
Nil 


29.1.4 ”回归 方程 的 显著 性 检验 


从 求 一 元 线性 回归 方程 系数 的 最 小 二 乘 估计 公式 可 知 , 不 管 y 与 x 之 间 是 否 有 线性 相关 关 
系 ， 只 要 给 出 了 n 对 数据 (x,,y,)(i =1,2,…,nn) 总 可 求 出 4 与 5， 从 而 写 出 回归 方程 y=4+Bx。 
然而 这 方程 不 一 定 有 意义 。 

我 们 研究 回归 方程 且 的 是 寻找 > 与 zx 之 间 的 统计 规律 性 ， 即 要 找 出 E(y) 随 x 变化 的 规律 。 
在 一 元 线性 回归 中 ，h 反 应 了 E(y) 随 x 线性 变化 的 变化 率 ， 若 b=0， 就 意味 着 E(y) 不 随 x 
而 线性 变化 , 那么 我 们 给 出 的 一 元 线性 回归 方程 就 没有 意义 。 因 而 要 讨论 回归 方程 是 否 有 意义 ， 
就 是 要 检验 假设 

H,:b=0 (29-2) 

是 否 为 真 。 

注意 到 引起 随机 变量 观测 值 y,y,,…,y, 不 同 的 原因 不 外 有 两 个 , 一 是 由 于 (29-2 ) 式 不 真 ， 
从 而 x 的 变化 引起 了 E(y) 的 线性 变化 ， 当 然 在 不 同 的 x 处 y 的 观测 值 不 同 ， 二 是 还 有 其 它 一 
切 因 素 〈 包 括 x 变化 时 引起 的 E(y) 非 线 性 变化 的 部 分 ) 造成 的 随机 误差 所 致 。 

用 总 的 偏差 平方 和 


ssT=>0, -7 =L, 
表示 六 ,为 之 间 的 总 的 差异 的 大 小 。 它 可 以 被 分 解 为 两 部 分 ， 
SST=>.0,-77 + >0.-)’ 
=SSR+SSE 
可 以 求 得 E(SSR)=0’+b*L,。 
这 表明 当 b=0 时 ， 从 平均 意义 上 看 ，SSR 仅 反映 了 随机 误差 引起 的 差异 ， 否 则 还 反映 了 


E(y) 随 x 变化 所 引起 的 差异 ， 因 此 称 SSR 为 回归 平方 和 。 又 由 E(SSE) =(n 一 2)o* ， 故 从 平均 


意义 看 ，SSE 只 反映 了 随机 误差 所 引起 的 差异 ， 称 为 残 差 平方 和 。 


因此 ， 当 已。 为 真 时 ， E(SSR) = ECE) =0°. 而 bz#0 时 ，E(SSR) > G*， 故 考虑 用 下 述 


统计 量 去 检验 假设 : 
SS 
CR 
且 从 直观 考虑 ， 当 FF 值 较 大 时 拒绝 H, ， 即 车 给 定 显著 性 水 平 为 a 〈 一 般 取 w 为 小 概率 )， 如 
果 F> (1,n 一 2)， 则 拒绝 及  ， 认 为 回归 方程 是 有 意义 的 。 在 实际 工作 中 ， 也 常用 “样本 相关 


系数 ”r 作 检 验 。 当 |rl>q 时 ， 拒 绝 鼠  。 这 里 


d= F_,(bn—2) 
n—2+F_,(l,n—2) 
由 于 > 比较 直观 ， 故 有 专门 的 表 可 供 查 询 。 
259 


练习 2 下 面 是 根据 16 名 成 年 女子 身高 xcm)， 下 体 长 xcm) 的 数据 。 


表 29-4 
ET 


试 根据 实验 数据 建立 回归 方程 ， 画 出 散 点 图 及 回归 曲线 ， 并 检验 回归 方程 是 否 有 意义 ? 
29.1.5 参数 的 区 间 估 计 


在 一 元 线性 回归 函数 中 ，b, 称 为 回归 系数 ，b, 表 示 在 x=0 时 E(y) 的 值 ， 称 为 回归 常数 ， 
在 29.1.3 中 已 给 出 它们 的 点 估计 , 而 在 实际 问题 中 常常 希望 给 出 其 估计 的 精度 , 亦 即 给 出 置信 
水 平 为 1-c 的 置信 区 间 。 
A 1 x2) 、 5 SEE ， 
由 已 有 的 一 些 结论 : bn [+E } bi~N (bi,0°/L,); Fr nD, 


5* = 3 是 oz 的 无 偏 估 计 ， 了 SSR,SSE 相对 独立 ， 即 可 获得 2o， 5 的 区 间 估 计 。 若 记 遍 , 


的 标准 差 为 cj ,ay ， 即 
其 估计 值 为 


则 名，2, 的 置信 水 平 是 1-c 的 置信 区 间 分 别 为 
[or 人 po- 二 | 
党 2 


G SE | 


29.1.6 ”预测 


若 回归 方程 有 意义 ， 可 用 它 进行 预测 。 所 谓 预 测 是 指 对 给 定 的 x=z， 由 回归 方程 
yo =6+bx 求 相应 的 y。 的 预测 值 *。， 并 给 出 预测 值 的 精度 。 所 谓 预测 值 的 精度 是 希望 求 出 一 
个 5 值 ， 使 得 
P{ly, -1}<6=1-a 
其 中 必 是 预先 给 定 的 一 个 小 的 正 数 ，0<a<1，56 越 小 就 表示 预测 值 的 精度 越 高 ， 并 称 
(yo 一 0 ,入 +0) 为 yo 的 概率 是 1-c 的 预测 区 间 。 
. 下面 来 求 6 。 可 以 证 明 
(x —7)’ 
Vo hl (+ + I ———)o | 


IT 
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其 中 b=Y 0 -7y, 实际 问题 中 0 未 知 ， 可 用 85: = 六 0 -了 一 了 去 估计 。 由 数理 统计 中 


有 关 分 布 的 知识 ， 可 得 


2 
3 号 Xn—2) 


_7Y 一 已 
车 记忆 =1+4 汪 + 加 一， 由 于 ,各 ,5? 相 互 独立 ,可知 汪 二 tn 一 2 


Xr 


于 是 对 给 定 的 加 信 度 1-a， 由 > 


可 见 ， 对 给 定 的 a ，n 越 大 ， 六 . 越 大 ， 国 越 靠 近 地 ， 则 5 越 小 。 此 时 预测 精度 较 高 。 因 
此 ， 为 提高 预测 精度 ，n 应 该 是 足够 大 ，%,…,x, 不 能 太 集中 ， 在 较 靠近 元 处 进行 预测 。 如 果 
在 (minx ,maxx) 范 围 之 外 作 预 测 ， 则 精度 就 较 差 。 安 排 试验 时 应 注意 ， 若 x 可 取 正 负 值 时 ， 
应 选取 %,…,% 使 天 = 0， 


29.1.7 ”可 以 化 为 一 元 线性 回归 的 曲线 回归 问题 


随机 变量 y 与 一 般 变量 之 间 的 关系 不 一 定 都 是 线性 的 ， 例 如 ， 散 点 图 如 图 29-5(a)。 
从 上 面 可 以 看 到 变量 y 与 x 之 间 有 一 定 的 关系 ,但 不 是 线性 相关 的 关系 。 对 这 类 问题 确定 
回归 方程 形式 的 方法 通常 有 两 种 。 一 是 根据 专业 知识 来 确定 ,二 是 可 以 根据 常用 的 函数 的 性 质 
来 确定 。 由 于 回归 方程 选择 的 不 同 ， 因 而 在 曲线 回归 问题 中 带 来 了 一 些 新 的 问题 ， 比 如 回归 方 
程 中 系数 的 估计 问题 。 这 里 只 研究 可 以 化 为 一 元 线性 回归 的 曲线 回归 。 又 比如 不 同 的 曲线 回归 
方程 的 评价 标准 问题 等 等 。 
一 只 红 铃 虫 的 产 卵 数 》 与 温度 x 有 关 ， 表 29-5 是 产 卵 数 与 温度 的 数据 ， 其 散 点 图 见 


< Lo- 中 -es a(n—2)Sh。 
2 2 


表 29-5 数据 表 


建立 关于 zx 的 回归 方程 。 

300 几 
250 / 
200 / 
150 w 
100 

50 -> 

24 26 28 30 32 34 24 26 28 30 3 34 
{a) (b) 


图 29-5 表 29-5 数据 的 散 点 图 
{a) 原始 数据 ; (b) (x, ln y,) 0 


26]1 


解法 1， 观 察 图 29-5 中 的 数据 点 的 变化 趋势 ， 若 取 回归 方程 为 儿 = 名 + 丰 z2 。 可 令 X = 妇 化 为 
一 元 线性 回归 方程 ， 并 求 得 


党 = -202.5434+ 0.3670x’ (29-3) 
解法 2: 回归 曲线 如 图 29-6(@) 此 外 ,回归 方程 还 可 取 为 如 下 形式 
9 =es” (29-4) 
上 式 两 边 取 对 数 有 
In$=Inb +bx (29-5) 
令 
(29-6) 
则 式 (29-5) 就 是 了 对 x 的 一 元 线性 方程 : 
(29-7) 


(a) (b) 
图 29-6 ”回归 曲线 
(a) 解法 1 的 回归 曲线 ，(b) 解法 2 的 回归 曲线 。 


当 给 出 了 组 观测 值 (x ,y,),i=1,2,…,n 后 ， 由 式 (29-6) 可 得 到 (x ,了 )= (x ,lny.) 
i=1,2,…,n。 再 用 求 参 数 a,b 的 最 小 二 敢 估 计 方 法 可 得 a 与 5， 回归 曲线 如 图 29-6(b)。 

通过 变换 (29-6)， 将 (29-4) 化 为 (29-7) 的 方法 就 是 “线性 化 ”方法 。 

那么 解法 1 与 解法 2 得 到 的 回归 方程 哪 一 个 好 呢 ? 仿照 一 元 线性 回归 中 的 相关 系数 > 及 Ca 
的 估计 S， 从 不 同 角度 提出 如 下 两 个 准则 ; 
准则 I 相关 指数 R， 定义 为 


> (y $$) 
R=1- 己 

2 -7)” 

由 于 >o - 纺 关 衡量 了 实测 值 与 回归 值 之 间 的 偏离 ， 我 们 总 希望 此 值 小 ， 故 选 尺 大 的 方 
程 为 好 。 
在 实验 3 中 ， 方 程 (29-3) 对 应 的 尺 : 为 及 = 0.8023 ， 方 程 (29-4) 对 应 的 尺 ? 为 
90356400 
78141.4 


两 者 比较 ， 以 (29-4) 为 好 。 
准则 本 ”剩余 标准 差 S$， 它 定义 为 
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以 5S 小 为 好 。 
在 实验 3 中 ， 方 程 (29-3) 与 (29-4) 对 应 的 8 分 别 为 16.74 与 55.58， 可 见 以 方程 (29-3) 为 好 。 
在 实验 3 中 准则 I 与 准则 开 的 结果 是 一 致 的 。 事 实 上 它们 是 从 不 同 角度 为 人 们 提供 信息 ， 
前 者 主要 反映 了 曲线 对 数据 点 的 拟 合 程度 ， 后 者 反映 了 实测 值 与 回归 值 间 的 偏差 大 小 。 
练习 3 表 29-6 列 出 在 不 同 重量 下 弹簧 的 长 度 。 


表 29-6 不 同 重量 下 弹 答 的 长 度 


(1) 在 直角 坐标 系 下 ， 作 散 点 图 并 判断 y 关 于 x 的 相关 关系 是 否 线性 ; 
(2) 求 出 y 关 于 x 的 一 元 线性 回归 方程 ; 
(3) 对 所 求 得 的 回归 方程 作 显 著 性 检验 ; 
(4) 求 出 y 与 x 间 的 相关 系数 ; 
(5) 求 回归 系数 的 置信 水 平 为 0.95 的 置信 区 间 ; 
(6) 在 x=16 时 求 y 的 概率 为 0.95 的 预测 区 间 。 
练习 4 表 29-7 给 出 经 过 x 分 钟 反 应 后 未 转化 的 物质 的 量 y 的 值 。 


表 29-7 数据 表 


根据 经 验 y 与 x 间 有 如 下 形式 的 曲线 回归 方程 
了 = 办 
(1) 试 通过 线性 化 方法 求 出 加 与 名; 
(2) 求 出 相关 指数 尺 与 剩余 标准 差 5; 
(3) 给 出 闪 4 时 y 的 预测 值 。 
29.2 ”多 元 线性 回归 
一 元 线性 回归 的 一 个 自然 推广 是 x 为 多 元 变量 ， 形 如 
y=b, +bx+…+b, xX, (29-8) 
其 中 >2， 或 者 更 一 般 地 
y=b +bh fix+:…+b, f, (x) (29-9) 


其 中 x= (2) ， 万 (=1 wm) 是 已 知 函数 。 这 里 y 对 回归 系数 b= (hb,b.,…,b,) 是 线性 的 ， 
称 为 多 元 线性 回归 。 不 难看 出 ， 对 自 变 量 x 作 变 量 代 换 ， 就 可 将 式 〈29-9) 化 为 式 (29-8) 的 
形式 。 所 以 下 面 以 式 〈29-8) 为 多 元 线性 回归 的 标准 形 进行 讨论 。 
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29.2.1 模型 


在 回归 分 析 中 自 变量 x=(%,…, 专 ) 是 影响 因 变量 》 的 主要 因素 ， 是 人 们 能 控制 或 能 观察 
的 ， 而 还 受到 随机 因素 的 干扰 ， 可 见 合 理 地 假定 这 种 干扰 服从 零 均值 的 正 态 分 布 ， 于 是 模型 
记 作 


=b +hb n+…+hb x +E 
i 0 (| mm (29-10) 


e~N(0,0°) 
其 中 o 未 知 ， 现 得 到 个 独立 观测 数据 (7;,Xi*…,Xi) ， = n>m.。 由 式 (29-10) 得 


y=b+hht'+bhb xX, + Ee: (29-11) 
E, ~ N(0,0°) i=1,…,n 
记 
y b 
1 A | a > 
X=|: :| r= ,esl:| 5=|: (29-12) 
1 x Xn l en 
交 b, 
(29-11) 式 可 表 为 
Y=Xb+e 
a (29-13) 


29.2.2 ”参数 估计 
用 最 小 二 乘法 估计 模型 “(29-10) 式 中 的 参数 b。 由 (29-11) 式 这 组 数据 的 误差 平方 和 为 


Q@)=Ve: = -Xb) (7 -6) (29-14) 
求 使 Q(B) 最 小 ， 得 到 5 的 最 小 二 乘 估计 ， 记 作 户 。 可 以 推出 
b=(XTX) XY (29-15) 
将 5 代 回 原 模型 得 到 y 的 估计 值 
$= + Brnt+ hh, (29-16) 


而 这 组 数据 的 拟 合 值 为 》= 她 ， 拟 合 误差 。= y -了 》 称 为 残 差 ， 可 作为 随机 误差 6 的 估计 。 
29.2.3 ”统计 分 析 


下 面 不 加 证 明 地 给 出 以 下 结论 。 

(1) 5 是 b 的 线性 无 偏 最 小 方差 估计 。 指 的 是 六 是 y 的 线性 函数 ，5 的 期 望 值 等 于 5p, 在 5b 
的 线性 无 偏 估计 中 ，5 的 方差 最 小 。 

(2) 二 服从 正 态 分 布 ， 即 


b~N(bo’(XTX)!) (29-17) 
(3) 对 残 差 平方 和 SSE，E(SSE)=(n-m-1o’, 且 
a (29-18) 
o 


264 


由 此 得 到 2 的 无 偏 估计 
592 = SSE =0? (29-19) 
n—-m—l 
; 称 为 剩余 标准 差 。 
(4) 对 y 的 样本 方差 SST= 六 () -- 刀 ?进行 分 解 ， 类 似 地 有 
SST =SSE+SSR (29-20) 


其 中 SSE= 六 (9 一 刀 ) 为 残 差 平方 和 ， 反映 随机 误差 对 y 的 影响 ，SSR = 六 (》 - 刀 ? 为 回归 平 


i=1 


方 和 ， 反 映 自 变量 对 y 的 影响 。 
29.2.4 回归 模型 的 假设 检验 


因 变 量 y 与 自 变 量 x,…,%, 之 间 是 否 存 在 如 模型 “29-8》 所 示 的 线性 关系 是 需要 检验 的 。 
显然 ， 如 果 所 有 1b,1 (j=1…,m) 都 很 小 ，y 与 5,…,, 的 线性 关系 就 不 明显 ， 所 以 ,可 令 原 假设 
为 Ho: b=b,=.…=b,=0。 

检验 的 方法 与 一 元 的 情形 类 似 ， 当 有 H, 成 立时 ，SSE 与 SSR 满足 

SSR 


F= ~Fm,n-—m-—!) 


有 
SSE 
n—m—l 
在 显著 性 水 平 a 下 有 1-@ 分 位 数 户 (m,n 一 ml) 。 若 F< (m,n~m~-1)， 接 受 有 H,; 否则 ， 

拒绝 8,。 
注意 : 拒绝 总 ,只 说 明 y 与 x ,…,x, 的 线性 关系 不 显著 ， 可 能 存在 非 线性 关系 ， 如 平方 关系 。 


还 有 一 些 衡量 y 与 ,zx 相关 程度 的 指标 , 如 用 回归 平方 和 在 样本 方差 中 的 比值 定义 。 


R’ = 一 一 (29-22) 


(29-21) 


Re [0,1] 称 为 相关 系数 ，R 越 大 ，y 与 x ,…,x, 相关 关系 越 密 切 。 通 常 ，R 大 于 0.8 (或 0.9) 才 
认为 相关 关系 成 立 。 


29.2.5 ”回归 系数 的 假设 检验 和 区 间 估 计 
当 上 面 的 瓦 , 被 拒绝 时 ， 忆 不 全 为 0 ， 但 是 不 能 排除 其 中 若干 个 等 于 0 ， 所 以 应 进一步 做 


如 下 m 个 检验 : 
Ho : b=0 (j=,m) 


由 于 Bb ~ NG ,0C,), 当 Ho 中 成 立时 有 


~ 一 四 一 ]) (29-23) 


n—m—l 


对 给 定 的 w ， 若 Iz kr oln-m-}), 接受 及 中 ， 否则 ， 拒 绝 及 7。 
2 
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车 检验 中 有 若干 个 b, =0 被 拒绝 (j=1,…,k，k<m)。 那 么 由 于 6b 的 各 分 量 之 间 的 相关 性 ， 
不 能 一 次 去 掉 所 有 不 显著 的 变量 ， 每 次 只 能 去 掉 不 显著 的 变量 中 1z1 值 最 小 的 一 个 ， 之 后 重新 
建立 少 一 个 变量 的 回归 方程 ， 再 重新 逐一 检验 。 若 还 有 不 显著 的 ,再 去 掉 一 个 ,重新 建立 方程 ， 
. 通常 希望 做 到 方程 中 所 含 变量 均 为 显著 为 止 。 

式 (29-24) 也 可 用 于 对 忆 (7 =0,1…,m) 作 区 间 估 计 ， 在 置信 水 平 1-w 下 ，b, 的 置信 区 间 为 


[b, -taln—m-lsyCy ,b, hse I Cp) 


SSE 
n-m—l 
29.2.6 ”利用 回归 模型 进行 预测 


当 回 归 模型 和 系数 通过 检验 后 ， 可 由 给 定 的 为 = Co,…,xn) 预测 为， 为 是 随机 的 ， 显 然 
其 预测 值 为 


其 中 $= 


=B + bn t+ bon 

给 定 @ 可 以 算出 % 的 预测 区 间 ， 结果 较 复 杂 。 但 当 n 较 大 且 x 接近 平均 值 时 ，y, 的 预测 
区 间 可 简化 为 [ > - 2 3， 世相 志 : s3] ， 其 由 名 。 是 标准 正 态 分 布 的 1- 3 分 位 数 ， 

地 渐 区 疝 售 计 方法 可 用 于 嫩 轴 吾 志 上 尖 总 运 2L) -六 GE 而 的 三 个 区 癌 , 通风 


均值 为 零 的 正 态 分 布 ， 所 以 若 某 个 e 的 置信 区 间 不 包含 零点 ， 则 认为 这 个 数据 是 异常 的 ， 可 了 予 
以 剔除 。 
29.2.7 ”多 项 式 回归 

如 果 从 数据 的 散 点 图 上 发 现 y 与 x 呈 较 明显 的 二 次 〈 或 高 次 ) 函数 关系 ， 或 者 用 多 元 线 
性 回归 模型 的 效果 不 太 好 ， 可 以 选用 多 项 式 回 归 。 

一 元 多 项 式 回归 模型 ， y=ax” + GoX 十 … 十 0 十 Cl 

多 元 二 项 式 回归 模型 : 


(1) 纯 二 次 : 为 = 负 十 儿 后 十 十 及 和， + Db 
j=l 


(2) 交叉 ;y=b+bx t+.+b,X + S by Xx 
(3) 完全 二 次 : y=b+b% 有 +…+ 马 ,X, + bn 
ls<ij<m 
年 龄 与 运动 能 力 
17 岁 一 29 岁 的 运动 员 每 两 岁 一 组 分 为 7 组 ， 每 组 两 人 测量 其 旋转 定向 能 力 ， 以 考察 
年 龄 对 这 种 运动 能 力 的 影响 。 现 得 到 一 组 数据 如 表 29-8， 试 建立 二 者 之 间 的 关系 。 


表 29-8 has la lel 


EE 21 | 
， 20.3 19.35 
21.3 


吏 ， 歼 姑 的 散 点 图 如 网 29-7， 明 显 地 表现 两 端 低 中 河 局 的 形状 ， 所 以 应 拟 合 一 条 二 次 曲线 。 
选用 二 次 模型 y=ax +a,x+ a 经 计算 可 得 
a =0.2003, a, =8.9782 ，w =-72.2150 


20 22 26 28 


图 29-7 年 龄 与 运动 能 力 


作 x 与 y 的 连续 曲线 ， 拟 合 的 效果 从 图 29-8 可 以 直观 地 看 出 。 
R* 和 S$ 可 作为 衡量 拟 合 的 优 和 党 的 指标 ， 计 算得 
R’ = 0.6980 S = 2.0831 
这 是 一 个 尚 能 接受 的 结果 。 
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图 29-8 年龄 与 运动 能 力 的 拟 合 曲线 


某 厂 生产 的 一 种 电器 的 销售 量 y 与 竞争 对 手 的 价格 和 本 三 的 价格 有 关 。 表 29-9 
是 该 商品 在 10 个 城市 的 销售 记录 ， 试 根据 这 些 数据 建立 y 关于 为 和 为 的 关系 式 ， 对 得 到 的 模 
型 和 系数 进行 检验 。 若 某 市 本 厂 产品 售 价 160〈 元 )， 竞 争 对 手 售 价 170〈 元 )， 预 测 商品 在 该 
市 的 销售 量 。 


表 29-9 了 与 价格 x 入 、 
| 0 | 5 | 1 | bs | 1 | 


| 
医 汪 加 醒 呵 本 丁丁 而 而 而 百 


解 : 画 出 (x ,y)，(x, ,y) 各 10 个 点 的 散 点 图 如 图 29-9, 可 以 看 出 y 与 ,有 较 明显 的 线性 关系 ， 
而 y 与 之 间 的 关系 则 难以 确定 。 
我 们 将 作 几 种 尝试 ， 用 统计 分 析 的 方法 来 决定 优 劣 。 
(1) 设 回 归 模 型 为 
y=b, +bX +b,x, (29-24) 
经 计算 可 得 ，b, =66.5176 ， b= 0.4139 ， bh =-0.2698 ， 其 中 bb，b，b, 的 置信 区 间 分 别 为 ， 
[-32.5060， 5 a [-0.2018，1.0296]，[-0.4611，-0.0785]， 且 尺 * = 0.6527 ， 下 = 6.5786 。 
与 天 对 应 的 概率 p=0.0247 ， 当 已 <w 时 ， 回 归 模 型 成 立 。 
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(a) (b) 
图 29-9 商品 销售 量 y 与 价格 入。 


可 以 看 出 结果 不 是 太 好 : p = 0.0247 若 取 w = 0.05 时 回归 模型 可 用 , 但 取 w = 0.01 则 模型 
不 能 用 ; R2 = 0.6527 较 小 ; 如 , b 的 置信 区 间 包 含 了 零点 。 
(2) 用 x ,% 的 二 次 函数 改进 模型 (29-24)。 选 择 纯 二 次 模型 ， 设 
| y= 如 + 妈 太 + 鸡 思 b bx 
输入 数据 计算 ， 可 得 
b= -312.5871,b = 7.2701,b, = -1.7337 ,b, = -0.0228,b,, = 0.0037 
Ga 的 估计 为 s=16.6436 。 


50 4 50 4 
9? Ee 25 一 9 
二 -本 一 一 -一 -和 = 人 二 十 -一 全 2 
130 140 150 160 170 180 190 100 150 200 250 300 


29-10 ”商品 销售 量 与 价格 的 回归 曲线 


可 见 以 纯 二 次 模型 的 剩余 标准 差 为 最 小 。 

练习 5 用 切削 机 床 加 工时 ， 为 适时 地 调整 机 床 需 测定 刀具 的 磨损 速度 ， 现 每 隔 一 小 时 测量 刀 
具 的 厚度 一 次 ， 得 到 表 29-10 所 例 数据 ， 试 建立 刀具 厚度 关于 切削 时 间 的 回归 模型 ， 对 模型 和 
回归 系数 进行 检验 预测 15h 后 刀具 的 厚度 。 


表 29-10 数据 表 


| 


men | 06 | m1 | 24 | 1 | m0 | m7 | 5 | m3 | m0 | 308 | 365 
练习 6 电影 院 调查 电视 广告 费用 和 报纸 广告 费用 对 每 周 收 入 的 影响 ， 得 到 表 29-11 所 列 的 数 


据 ， 建 立 回归 模型 并 进行 检验 ， 诊 断 是 否 有 异常 点 。 
表 29-11 数据 表 . 
每 周 收入 [|[% | ”» [|[% | % | % | % | % | ”| 
电视 广告 费用 2.0 1.5 2.5 3.3 2.3 4.2 2.5 
练习 7 表 29-12 是 一 组 发 动机 性 能 试验 的 数据 ， 在 不 同 速度 $ 下 测量 发 动机 产生 的 功率 P， 
试 建立 二 者 的 关系 式 ， 并 进行 检验 。( 先 画 出 散 点 图 观察 ， 以 确定 用 什么 模型 )。 
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表 29-12 数据 表 
22 20 18 16 14 12 15 17 19 21 22 20 
64.03 | 62.47 | 5494 | 48.84 | 43.73 | 37.48 | 46.85 | 51.17 | 58.00 | 63.21 | 64.03 | 59.63 
ee 43.74 | 36.63 | 32.05 | 3968 | 55.79 | 51.17 | 56.65 | 62.61 63.89 


练习 8 一 矿脉 有 13 个 相 邻 样本 点 ， 人 为 地 设 定 一 原点 ,观测 的 各 样本 点 对 原点 的 距离 x, 与 
该 样本 点 处 某 种 金属 含量 y 的 一 组 数据 如 表 29-13 所 列 ， 画 出 散 点 图 观察 二 者 的 关系 ， 试 建立 
合适 的 回归 模型 ， 如 二 次 曲线 、 双 曲线 、 对 数 曲 线 等 。 


表 29-13 数据 表 


10 
| 110.59 111.00 7 


29.3 值得 进一步 研究 的 问题 


问题 1 控制 问题 。 在 一 些 实际 问题 中 ， 往 往 要 求 》 在 一 定 范 围 内 取 值 。 例 如 要 求 某 产品 的 质 
量 指标 y 落 在 (y, , y,) 间 为 合格 品 ， 这 里 y, , y, 是 两 个 已 知 的 定 值 。 问 题 是 如 何 控制 自 变量 x 
的 值 才能 以 1- ca 的 概率 保证 产品 合格 ， 即 要 控制 x 使 
P{y, <y< y».}=1-a 

这 里 @ 是 事先 给 定 的 小 正 数 ，0 <a<1。 

以 29.1 中 例 1 来 讲 ， 车 要 求 以 近似 0.95 以 上 的 概率 保证 y 落 在 (40,50) 内 ， 试 问 xX 应 控 
制 在 什么 范围 内 ? (可 求 近似 区 间 ) 
问题 2 拟 合 检验 。 车 通过 计算 得 出 回归 方程 是 显著 的 , 是 否 表明 y 与 x 间 确 为 线性 相关 关系 ， 
不 可 能 是 平方 关系 等 。 是 否 除 x 外 不 存在 其 它 有 影响 的 因素 ? 
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实验 二 十 的 近似 计算 


ee I fb 。 古 代 人 把 3 作 
为 它 的 近似 值 ， 古 希 嘲 阿 基 米 德 〈Archimedes) 曾 得 到 3 本 <m<37。 我 国 宋代 的 祖冲之 得 到 


i .， 与 的 准确 值 的 误 


二 


i 
在 上 个 世纪 ， 丹 麦 数学 家 康 托 (Contor) 证 明了 F 属于 无 理 数 中 的 “超越 数 ”， 即 它 不 能 成 为 
系数 为 有 有理数 的 代数 方程 的 解 ， 因 此 的 真 值 是 一 个 具有 无 穷 多 个 没有 规律 的 数字 的 小 数 。 

对 数学 家 来 说 ,这 个 神 妙 莫 测 的 数 是 这 样 充 满 魅力 , 一 直 在 漫长 几 千年 的 历史 中 大 多 数 
数学 家 都 曾 亲 自 计算 过 它 ， 并 出 现 了 计算 位 数 的 竞争 。 随 着 角 的 弧度 制 的 采用 , 微 积 分 的 发 
现 , 特别 是 计算 机 的 发 明 ， 人 们 计算 K 的 位 数 大 大 地 增加 了 。 最 近 有 报道 说 ，% 的 近似 值 计算 
已 提高 到 了 千 亿 位 以 上 。 
: 但 是 , 你 是 否 知道 怎样 计算 x 的 近似 值 ? 是 否 尝试 过 利用 所 知道 的 数学 知识 来 计算 的 近 

似 值 ? 本 实验 将 介绍 几 种 计算 的 方法 。 


30.1 利用 多 边 形 的 面积 求 下 
当 圆 的 半径 为 1 时 , 其 面积 恰好 为 x， 因 此 必 介 于 单位 圆 的 内 接 多 边 形 面积 与 外 切 多 边 
形 面积 之 间 ， 如 图 30-1 所 示 。 因 单位 加 的 内 接 正 边 形 面积 $, = sin 并， 外 切 正 边 形 面积 
这 为 了 =ntan 工 ， 故 
n 


er (30-1) 
2 n n 


图 30-1 加 的 正 多 边 形 毅 近 


利用 多 边 形 的 面积 计算 x 的 近似 值 ， 并 估计 误差 。 
解 ， 利用 (30-1) 式 ， 令 n=6:2:(k=0,1,2,…)， 则 有 
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3.2 Sin 了 7 <T<0， 2 tn (30-2) 
因此 ， 当 用 3.2t sin 去 近似 x 时， 误差 不 超过 62: tan F -3.2 Sin 令 
eg ， i ， 则 有 m=3.sin™ = 四 ， =V2a, (1+(1— 


1 2 


4k_l 2 Gn 二 se 
(TT 2t-1 2 ) ,大 = 1,2,.: b. a, ,大 1,2, 
计算 结果 如 表 30-1。 
表 30-1 zt 的 近似 值 


2.59808 3.4641 0.110504 
3 3.21539 0.0338975 

3.10583 3.15966 0.00884841 

3.13263 3.14609 0.00223524 

3.13935 3.14271 0.000560252 
练习 1 请 分 别 计算 五 ,、 H, 以 及 误差 6, ， 与 实验 1 的 结果 进行 比较 ， 并 针对 以 上 结果 给 出 
一 个 合理 的 解释 。 其 中 己 = sin 一 ， Pp 互 =2an 严 ， H, =3045, -P), 页 = 了 43- 局 

H+, 

€, 三 | 一 o 


练习 2 ”你 能 对 式 (30-1) 作 进一步 的 改进 吗 ? 
30.2 ”用 和 迭代 法 求 r 
1593 年 ， 韦 达 首 次 给 出 了 计算 x 的 递归 公式 


2 (30-3) 
1 1 
VV, 三 站 去 幼林 
2 2 
韦 达 公式 为 
i (30-4) 
I 


ey 事实 上 我 们 可 以 从 利用 多 边 形 近似 单位 圆 的 面积 入 手 , 将 边 数 取 为 
2n,4n,… 。 由 (30-1) 式 ， 可 以 得 到 


os (30-5) 
Son n 
对 于 任意 上 >1， 有 
2 
Sx = Tn NN x 元 (30-6) 
CO0OS 一 CO0S 一 C0S -一 …C0S 一 一 一 
4 8 16 4.2°1 
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和 
1+ cos 一 lt+cos™ 
xt_ V2 ua 4 _ V2+V2 _N2+Y2+Y2 
义 由 于 cos 本 = pa i | coos = 3 7 。 归 纳 
可 知 
nT 2+V2+…+V2+V2 
OO (30-7) 


a 4) 式 。 
蚂 罕 3 利用 韦 达 公式 计算 x 的 近似 值 ， 并 给 出 误差 。 
解 : 利用 韦 达 公 式 ， 计算 结果 迭代 的 图 形 如 图 30-2。 


200 300 400 500 


图 30-2 利用 韦 达 公式 迭代 的 图 形 


练习 3 分 别 利用 韦 达 公式 , 选取 n=100,1000,…，, 观察 n 值 的 增加 所 导致 的 近似 值 的 变化 ， 
你 能 对 n 值 与 误差 之 间 的 关系 给 出 一 个 结论 吗 ? 


1989 年 博文 〔Borwein) 发 现 如 下 迭代 初 的 w 收 仇 于 一 
yo= J2 -了 
加 1 一 MN 二 六 
i 机 一 y， (30-8) 
ao =6— 4V2 


qa, =(+y,) a -2 y+ y, + y),n=1,2,.… 
且 以 a, 近似 的 误差 不 超过 16.4"e-** 


六 3 利用 博文 先 代 式 计算 的 近似 值 并 观察 收敛 的 误差 界 。 
解 利用 博文 迭代 式 计 算 严 的 近似 值 时 ， 和 迭代 4 次 可 精确 到 693 位 小 数 。 
练习 4 利用 博文 和 迭代 式 计 算 r 到 小 数 点 后 40 位 ， 并 与 韦 达 公式 比较 其 迭代 速度 。 
1996 年 贝 莱 〈Bailey) 得 到 〈30-8) 式 改进 型 迭代 式 
|m=5CW5-D 
见 =25(1+4+ A 多 
1 (30-9) 


ao = 一 


2 


tl eR 
Cr = ya —5 GOm-D)+ yy 2 +5)),n=1,2,.…. 
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其 中 10 +o +oy -4B") 人 | 二 | 8- [1 | 以 近似 - 的 误差 不 超 


过 16.$".e*3 。 
练习 5 利用 (30-9) 起 选 代 4 次 ， 计算 的 近似 值 ， 观 察 其 近似 效果 。 并 观察 其 收 全 的 误差 
界 (n<15)。 


30.3 ”数值 积分 法 求 T 
定 积 分 


dx=z 


es 
eds 也 就 是 得 到 了 的 值 。 
只 RN 分 别 利用 实验 二 十 六 中 介绍 的 数值 积分 梯形 公式 和 辛普森 公式 计算 


n= | 二 zdx 近 似 信 ， 并 给 出 其 误 关 。 


练习 6 选取 n=1000,10000,100000,… 等 ， 观 察 n 值 的 增加 所 导致 的 s 值 的 
变化 情况 ,直到 的 增加 所 导致 的 s 的 变化 小 于 给 定 的 误差 界 ， 比 较 同 一 个 n 值 下 梯形 公式 和 
辛普森 公式 计算 结果 的 差别 ， 对 两 种 方法 的 精度 差别 获得 一 个 感性 认识 。 

练习 7 从 理论 上 分 析 计 算 误差 与 的 关系 ， 并 与 实际 观察 结果 相 比 较 。 

练习 8 半径 为 1 的 圆 的 面积 等 于 x， 用 数值 积分 法 计算 这 个 面积 。 

练习 9 自己 设计 类 似 的 方法 计算 其 它 一 些 无 理 数 如 In2 的 近似 值 。 


30.4 级 数 法 求 T 
ee 即 


EB Cy x” ， -1l<x<l (30-10) 
站 n=0 
对 〈30-10) 式 逐 项 积分 得 
actmz= 并 CD 去 Sy -l<x<l (30-11) 


因 右 端 级 数 当 ||=1 时 仍 收敛 ， 由 霸 级 数 的 性 质 知 ， 上 式 在 t=+1 时 也 成 立 。 
式 (30-11) 的 左 端 为 一 角度 ， 与 有关， 我 们 只 要 求 出 右 端 级 数 的 和 ， 就 可 以 求 出 r 了 。 


30.4.1 菜 布 尼 蒋 级 数 求 r 
当 x=1 时 ，(30-11) 式 成 为 ， 


T_F CD -12 
1 Re 


这 是 由 莱 布 尼 茨 于 1674 年 首先 得 到 的 计算 K 的 公式 。 
但 是 ，(30-12) 式 右 端的 交错 级 数 是 条 件 收敛 而 非 绝 对 收敛 的 ， 若 用 前 项 和 作 近 似 ,产生 
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的 训 关 将 介 于 也- 太 7 与 之 间 ， 因 此 该 级 数 的 收敛 速度 是 不 能 令 人 满意 的 。 


2n+l] 2n+3 27+1 
利用 (30-12) 式 计算 Kt 的 近似 值 并 估计 其 误差 。 
解 : 利用 (30-12) 式 计算 zt 的 近似 值 ， 由 计算 结果 可 看 出 ， 使 用 前 1000 项 计算 大 约 能 精确 到 百 
分 位 。 

1844 年 ， 数 学 家 达 什 在 没有 计算 机 的 情况 下 利用 此 式 算出 了 Zz 的 前 200 位 小 数 ， 使 用 误 
差 估计 式 


1 1 1 
= et <——— 
"+57 ER 


人 
练习 10 利用 (30-12) 式 计算 x 的 近似 值 ， 精 确 到 200 位 小 数 。 
30.4.2 ”泰勒 级 数 法 


为 了 在 计算 时 收敛 速度 快 一 些 ， 可 以 取 较 小 的 正 数 作 为 x 代入 (30-11) 式 。 因 为 (30-11) 
式 中 级 数 的 收敛 速度 会 因为 x 的 取 值 不 同 而 不 同 。 一 般 来 说 ,x 的 绝对 值 越 小 ， 该 究 级 数 的 收 
es 而 x 的 绝对 值 越 大 ， 该 级 数 的 收敛 速度 越 慢 。 例 如 我 们 在 (30-11) 式 的 两 端 令 


会 得 到 下 列 等 式 ;: 


a 
3 


2n+1 
Ye 和 2 区 
等 式 右 端 级 数 的 收敛 速度 显然 要 优 于 (30-12) 式 中 级 数 的 收敛 速度 , 但 是 级 数 中 含有 的 根 式 却 是 
不 易 计算 的 。 

当 (30-11) 式 中 的 x 取 区 间 (0,D 内 其 它 的 数 时 ， 除 了 会 造成 级 数 求 和 复杂 外 ， 也 可 能 使 
arctan x 与 元 之 间 的 关系 不 易 确定 。 这 两 个 缺陷 是 不 可 能 同时 避免 的 。 

那么 怎么 利用 (30-11) 式 计算 ， 才 能 使 计算 简单 ， 收 和 敛 速度 又 比 用 莱 布 尼 茨 公式 (30-12) 
快 呢 ? 17 世纪 后 的 许多 著名 数学 家 想到 ， 将 二 分 成 两 个 或 两 个 以 上 小 角度 的 和 ， 每 个 小 角度 


用 反正 切 表示 ， 这 样 就 可 利用 (30-11) 式 计算 出 每 个 小 角度 进而 算出 z 。 如 果 用 (30-11) 式 计 
算 每 个 小 角度 时 ， 没 有 复杂 的 运算 ， 收 剑 速 度 也 较 快 ， 那 么 这 种 方法 是 可 取 的 。 该 方法 的 关键 
是 如 何 将 工分 成 一 些 较 容易 计算 的 小 角度 的 和 。 

一 般 地 ， 取 tan 0 为 某 个 真 分 数 ， 由 


tang +tanf 


a =tan(g + pb)= tan= =1 


计算 出 
1 一 1 tanw 
1+tana 


tanp = 


就 可 以 得 到 恒等式 了 =%+ 有 。 令 x= tan = oa= arctan ， 那么 
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2 2 
2tan20 12 _120 
tan 二 一 -| PR 
1-tan’ 20 5 119 
12 
因此 ， d= B= =4cx -非常 接近 0。 义 
120 ) 
tan4wx -1 _119 1 
tan 二 一 二 二 一 
有 l+tanda:l 1+120 239 
119 


所 以 


T=160—4B ee = 
(30-13) 


(-1 (-D)* 1 
> i De 2392+1 
G0 a ea (Maqin) 公式 。 
”利用 马 琴 公式 ， 计 算 K 的 近似 值 到 给 定 的 精度 。 与 x 的 准确 值 比 较 ， 并 与 数值 积分 
法 得 到 的 结 直 果 比较 。 
练习 11 ”如果 要 计算 的 前 15 位 数字 ， 计 算 arctan(1/5) 和 arctan(1/239) 应 当 取 到 寡 级 数 展开 
式 的 多 少 项 ? 取 几 干 或 几 万 项 是 否 就 能 得 到 高 精度 的 元 值 ? 


练习 12 证 明 Euler 等 式 = arctan 7 +arctan> ， 并 由 此 计算 的 近似 值 。 


2 
_ 1001 = 1001/19%9 98 
六 出 令 anw=j509， np 1+1001/1999 ”3000 于 是 有 
T 1001 998 
二 = arctan 一 一 二 arctan 
4 1999 3000 
用 类 似 的 方法 ， 还 可 以 进一步 地 将 上 面 的 arctanoop 分 成 两 个 更 小 的 角度 之 和 ， 这 个 问题 
我 们 留 给 读者 。 
找到 恒等式 后 ， 利 用 (30-11) 式 便 可 以 计算 了 ， 例 如 由 上 面 的 等 式 可 得 : 
fr 世 1 (1001Y"™ 二 1 1 998 下” 
一 三 -1)” 一 -一 -1)” 30-14 
4 2 3 pe 12 8 | en 


用 (30-14) 式 近似 计算 。 
练习 13 ,将 实验 7 与 实验 6 的 zt 值 比较 ， 那 个 收敛 的 速度 快 ? 
练习 14 ”你 能 否 自己 设计 一 个 计算 和 的 公式 ， 并 与 实验 7 计算 x 的 方法 相 比 较 ， 哪 个 收敛 束 


度 快 ? 

根据 以 上 原理 还 可 以 得 到 
高 斯 公式 : 六 48arctan TE + 32arctan ~20aretan = (30-15) 
斯 托 梅 尔 公式 : T= 2arctan T+ Barctan 3 + 4arctan 5 (30-16) 


下 面 再 列 出 一 些 类 似 公式 供 读者 参考 
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= Sarccot(6) ~ seo 只 arccot(117) 


6arccot(8) + arccot EE | 3arccot(268) 


=8arccot(10) — 2arccot 二 
2543 


| arccot(1393) 
=12arccot(18)+ 3arccot(70) + 5arccot(99) + 8arccot(307) 
=5arccot(7) + 2arccot 四 

=8arccot(10) — arccot(239) — 4arccot(515) 


=8arccot(10) ~ arccot(100) — 4arccot(515) —arccot | 371498882 | 


3583 


1 人 |a Fla Fala FI 上 |a FIa FF|9 


4 12arccot(18) + 8arccot(99) + 3arccot(239) + 8arccot(307) 


练习 15 分 别 选 用 上 面 的 计算 Kw 的 公式 计算 w 的 前 50 位 值 ， 并 分 析 它们 的 计算 速度 。 
练习 16 牛顿 曾 发 现 了 如 下 的 等 式 | 


1 1 1.3 1.3.5 
邢 = 6| 二 十 了 十 一 十 一 一 一 一 十 
2 2.3.2 2.4.3.2 2.4.60.7.2 


1 吉 2n—1)!! 
你 能 否 运用 这 个 式 子 计算 的 前 10 位? 
将 函数 (xz)= 思 (CC 天 <x< 克 ) 展 开 成 傅 里 叶 级 数 后 令 x= 0 ， 由 收敛 定理 可 得 到 ; 
Tn 世 1 
8 QF- 
利用 此 式 也 可 以 计算 n， 虽然 右 端 级 数 的 收敛 速度 不 理想 , 但 我 们 可 以 做 如 下 修改 使 其 加 
快 。 将 下 式 


(30-17) 


1 七 1 

2 
与 (30-17) 式 相 减 ， 可 以 得 到 
TS 
8 2 SQk-1)2k+D) 

显然 ，(30-18) 式 中 级 数 的 收敛 速度 要 比 〈30-17) 式 中 级 数 的 收敛 速度 快 一 个 数量 级 。 

练习 17 选择 适当 的 等 式 进一步 改善 (30-18) 式 中 级 数 的 收敛 速度 , 并 用 你 得 到 的 式 子 计算 n 。 
练习 18 自己 设计 类 似 的 方法 计算 In2。 


30.4.3 ”其 它 公式 
目前 ， 计 算 K 的 一 个 极其 有 效 的 公式 为 


(30-18) 
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工 _ (4n)! 1103+26390n 
T -2 nD)’ 396” 


式 〈30-19) 称 为 拉 玛 努 金 (Ramanujan) 公式 。 这 个 级 数 收敛 得 非常 快 ， 级 数 每 增加 一 项 ， 互 
ee 8 位 小 数 的 精度 。 
利用 〈30-19) 式 计 算 r 的 近似 值 ， 并 观察 其 误差 变化 。 

1985 年 ， 数 学 家 比尔 。 高 斯 帕 依 使 用 这 个 公式 算出 区 的 1750 万 位 小 数 。 这 个 神奇 的 公 趟 
归功 于 印度 年 轻 的 传奇 数学 家 拉 玛 努 金 。 

另 一 个 经 过 改进 的 计算 公式 为 

二 2 Ce 13591409 + 545140134n (30-20) 
6403202 有 

练习 19 利用 (30-20) 式 计 算 K 的 近似 值 ， 并 观察 误差 与 的 关系 。 
提示 : 对 n=5,6,…,20 分 别 列 出 计算 误差 。 


30.5 ”蒙特 卡 罗 (Monte Carlo ) 法 


单位 圆 的 面积 等 于 r 。 可 以 用 数值 积分 公式 来 计算 这 个 面积 的 近似 值 。 另 一 个 方法 是 用 蒙 
特 卡 罗 法 ， 即 用 随机 投 点 的 方法 来 求 这 个 面积 7 的 近似 值 。 具 体 方法 如 下 : 

在 平面 直角 坐标 系 中 ， 以 0(0,0), A(1,0),C(1,1),B(0,1) 为 四 个 顶点 作 一 个 正方 形 ， 其 面积 
S=1， 以 原点 O 为 圆心 的 单位 圆 在 这 个 正方 形 内 的 部 分 是 圆心 角 为 直角 的 扇形 ， 面 积 为 


3 =T/4， 在 这 个 正方 形 内 随机 地 投入 nn 个 点 ， 设 其 中 有 m 个 点 落 在 单位 肩 形 内 。 则 


(30-19) 


随机 投 点 (如 图 30-3) 可 以 这 样 来 实现 : 任意 产生 区 间 [0,1] 内 的 一 组 随机 数 x,y , 则 (x, y) 
就 代表 一 个 随机 点 P 的 坐标 。 这 个 点 落 在 单位 扇形 内 的 充分 必要 条 件 是 x+y <1 
: 取 不 同 的 n 做 上 面 的 实验 ， 将 所 得 的 z 的 近似 值 记录 下 来 ， 与 已 知 的 的 值 比较 。 


图 30-3 随机 投 点 示意 图 


练习 20 观察 n 的 大 小 对 所 得 结果 的 精确 度 的 影响 ,可 以 看 到 : n 太 小 ， 精 度 太 差 。 但 如 果 n 
太 大 ， 从 计算 机 上 所 得 的 不 是 真正 的 随机 数 ， 效 果 仍 不 理想 。 总 的 说 来 ， 这 个 方法 的 精确 度 是 
差 的 。 

另 一 种 用 蒙特 卡 罗 法 来 计算 Kt 的 方法 是 1777 年 法 国 数学 家 蒲 丰 《Buffon) 提出 随机 掷 针 
试验 。 其 步骤 如 下 : 

(1) 取 一 张 白 纸 ， 在 上 面 画 许多 间距 为 d 的 等 距 平 行 线 ; 
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(2) 取 一 根 长 度 为 KU < d) 的 均匀 直 针 , 随机 地 向 画 有 平行 线 的 纸 上 折 去 , 一 共 投 据 n 次 Cn 
是 一 个 很 大 的 整数 )。 机 于 针 和 直线 相交 的 次 数 m 


(3) 由 分 析 知 道 针 和 直线 相交 的 概率 p= 一 。 取 m/n 为 p 的 近似 值 ， 则 


特别 地 ， 取 针 的 长 度 1= 时 ， 二 


练习 21 请 尝试 设计 一 个 方案 ， 用 计算 机 模拟 蒲 丰 投 针 实验 ， 得 出 r 的 近似 值 。 

练习 22 ”随机 整数 互 素 的 概率 : 取 一 个 最 大 的 整数 N .在 1 到 N 之 间 随 机 地 取 一 对 整数 a,b ， 
找 出 它们 的 最 大 公约 数 (a,b) 。 当 (a,b) =1 时 称 a,b 互 素 。 做 次 这 样 的 实验 , 记录 其 中 (a,b) =1 
的 情况 出 现 的 次 数 m。 算 出 p=m/n 的 值 。 


理论 分 析 指出 ， 随 机 整数 互 素 的 概率 为 为 p= 了 了 + 了 一 -入 因而 r= 上 


30.6 ”值得 进一步 研究 的 问题 


1995 年 ，Bailey，Borwein 和 Plouffe 给 出 了 以 下 zx 的 一 个 计算 公式 


”1/4 2 1 1 
2 I 0 
问题 1 (30-21) 式 右 端 是 否 等 于 x， 试 推导 之 ， 并 从 16 进 制 数 的 观点 阐述 “30-21) 式 的 意 
义 。 
问题 2 类 似 于 (30-21) 式 ， 有 以 下 公式 
4 
ocan2= 了 下 | + 
316 | 8K+1 8k+3 8k+5 8k+7 


4. 
In3= 
> 本 [ar | 


4 
4k+2 + | 


试 证 明之 。 
问题 3 验证 以 下 公式 


ul 1 9 1 1 
jn3= 》 一 .一 一 i 
之 不 2k+1 no 0 大 


问题 4 验证 以 下 公式 | 
(-1)" (CD” 女 (CD 
"3 之 | 


4n+1 
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285 667 5103 35625 
ey 2 


各 妇 | K+1 2k+1 4k+1 4k+3 4k+5 


45 1215 


1|-12, 384 2 7 


T = 一 一 + 
和 k+l Kk+2 2k+1 2k+3 


17351 35 9 | 
r= 0 8 2 1 188 , 975 _ 423 
4 所 | 4kK+1 4k+2 4k+3 4k+4 16(4k+5) 4k+6 


1 3 
_37 CD 2 1 4 1 


f= 一 +>》 一 一 | 一 十 
12 各 4. 丰 | 4K+1 4K+2 4K+3 4k+4 


附 Mathematica 程序 

1. 实验 1 的 程序 

piImnscribed[n_] := n*Sin[2 Pin]/2;piCircumscribed[n_] := n Tan[Pin]; 

error[n_] := Abs[Pi - (piInscribed[n] + piCircumscribed[n])/2.]; 

Sizes = 32^ 人 (Range[S]); 

TableForm[Transpose[{sizes, N[piInscribed[sizes]], N[piCircumscribed[sizes]], 

error[sizes]}], TableHeadings -> {None, {Sides, piInscribed, piCircumscribed, Error}}] 

2. 实验 2 的 程序 

PilInterval[n_] := {n/2 Sin[NI[Pi] / nl], n Tan[N[Pi] / n]} 

PiSqueeze[n_] := Module[{a, lower, upper, middle, i}, a = 2 NIPi] /i; 

lower = ListPlot[Table[i / 2 Sin[2 NI[Pi] /这 ， {i, 3, n}], DisplayFunction -> Identity]; 

upper = ListPlot[Table[i Tan[NI[Pi] /i], {i, 3, n}],DisplayFunction -> Identity]; 

middle = ListPlot[Table[INVieta[il, {i, Max[20, Floor @ Log @ nl]}], 

DisplayFunction -> Identity, PlotJoined -> True]; 
Show[{lower, upper, middle}, DisplayFunction -> $DisplayFunction]] 

NVietaln_]:= 2 /NProduct[Cos[Pi /2i], {i, 2, n}] 

tl = Table[{n, NVieta[n], N[Pi - NVieta[n]l]}, {n, 0, 20, 2}]; 

TableForm[tl1, TableHeadings -> {None, {n, NVieta, Error}}] 

PiSqueeze[S00]; 

3. 实验 3 的 程序 

Clear[y, z, a, t];y[0] = Sqrt[2] - 1;z[m_] := (1 - y[n - 1]^49^(L4); 

y[n_] := (1 - z[n])/(1 + z[n));a[0] = 6 - 4Sqrt[2]; 

aln_}:= (1 +y[n)’4aln - 1] -2^(2n + 1 y[n](l+y[ln]+y[n]’2); 

tl1 = Table[{n, NILVa[n]],NIUPi - /a[n]]}, {n, 1, 4}]; 

TableForm[tl, TableHeadings -> {None, {n, a, Error}}] 
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4. 实验 4 的 程序 

a=0;b=1;y{x ]:=4/(1 +X^2); 

quad[n_ ] := N[(b - an*(Sumf[fy[a + i*(b - a)/n], {i, 1, n - 1}] + (yfa] + y[b])/2), 20]; 

tl = Table[{n, quad[n], N[Pi - quad[n], 20]}, {n, 1000, 2000, 100}]; 

TableForm[tl, TableHeadings -> {None, {"n"', "quad","Error"}}] 

a=0;b=1;y[x_ ]:=4/(1 +X^2); 

simpson[n_] := N[(b - a}/(6*n)*(2*Suml{[y[a + i*(b - a)/n], {i, 1,n- 1}] + 
4*Sum[y[a + (i - UV2)*(b - a)/n], {i, 1, n}] + y[a] + y[b]), $0] 

t2 = Table[{n, simpson[n], N[Pi - simpson[n], 40]}, {n, 1000, 2000, 100}]; 

TableForm[t2, TableHeadings -> {None, {"'n'', ''simpson"',"Error"}}]; 

5. 实验 $ 的 程序 

Clear[n, tl];lebn[n_] := 4*Sum[(-D^j/(2*j + 1), {j, 0, n}]; 

tl = Table[{n, N[lebn[n], 20], N[Pi - lebn[n], 20]}, {n, 100, 1000, 100}]; 

TableForm[tl, TableHeadings -> {None, {"n"', "Lebnic", "Error"}}] 

6. 实验 6 的 程序 

Clear[tl n, j]; 

pimagin[n_] := 16*Sum[(-1)^j/((2*j + D*S^(2#j + 1)), {j, 0, n}] - 

4*Sum[(-1)^j*(1/239)^(2#j + D/(Q2*j + DD, 0, 0, n}]; 

tl = Table[{n, N[pimaqgin[n], $0], N[Pi - pimaqin[n], $0]}, {n, 1, 26, $}]; 

TableForm[tl, TableHeadings -> {None, {n, pimaqin, Error}}] 

7. 实验 7 的 程序 

Clear[tl, n, j]; 

piimp[n_] := 4*Sum[(- 蕊 ^j/(24j + 1D)*(10011999)^(2*j + 1), {j, 0, n}] + 

4*Sum[(-1)^j*(998/3000)^(2*j + 1)/(2*j + 1), {ji, 0, n}]; 

tl = Table[{n, N[piimp[n], $0], NUPi - piimp[n], $0]}, {n, 1, 26, $}]J; 

‘TableForm[t1, TableHeadings -> {None, {n, piimp, Error}} 

8. 实验 8 的 程序 

Clear[tl n, j]; 

pirama[n_] := 2*Sqrt[2]/9801*Sum[(4 j)!/G!)^4*(1103 + 26390 j)/396^(4}), {j, 0, n}]; 

tl = Table[{n, N[1/piramal[n], $0], N[Pi - 1/pirama[n], $0]}, {n, $, 10}]; 

TableForm[tl, TableHeadings -> {None, {n, pirama, Error}}] 

9. 实验 9 的 程序 

-NumberOfPoints=n=10000; 

Dol[x[i]=Random[Real,{-2,2}];y[i]=Random[Real,{-2,2}], {i,1,n}]; 

‘Table[{x[i],y[i]},{i,1,10}]; 

a=ParametricPlot[{Cos[t],Sin[t]},{t,0,2Pi},PlotStyle->RGBColor[]1,0,0], 

DisplayFunction->Identity]; 

b=ListPlot[Table[{x[i],y[i]},{i,1,n}],DisplayFunction->Identity]; 

Show[a,b,DisplayFunction->$DisplayFunction]; 

Do[z[i]=If{[x[i]^2 + y[]^2 <= 1,1,0],{i,1,n}]; 
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PtsInCircle = Sum[z[i,t1nh]; 

ApproxOfProb = N[PtsInCircle/n}]};RealProb = N[Pi/16}); 

ApproxOfPi = N[16*PtsInCircle/n}; 

Print["'n= "yn," Pi=",ApproxOfPi," error=",N[Pi-ApproxOfPIi]] 
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实验 三 十 一 ”线性 变换 及 其 迭代 


如 果 有 一 种 法 则 T， 对 平面 点 集 DD 中 的 每 个 点 A， 都 对 应 平面 上 唯一 的 一 个 点 T (4)， 则 
称 了 为 平面 上 的 一 个 变换 ，7T (4) 称 为 4 的 像 。 

平面 上 的 图 形 由 点 组 成 ， 因 而 平面 上 的 变换 了 将 一 个 图 形 G 变 到 另 一 个 图 形 T(G)，T(G) 
称 为 G 的 像 。 在 平面 上 建立 了 直角 坐标 系 后 ， 平 面 上 每 个 点 P 可 由 它 的 坐标 (Xx, y) 来 表示 ， 
其 中 x,ye R ,平面 上 的 变换 T 将 每 个 点 PCx,y) 变 到 点 T(P)(x,y”), 即 x'= f(x,y),y'= (x,y)。 

只 要 给 定 了 两 个 函数 和， 就 决定 了 一 个 变换 ， 它 将 坐标 为 x,y) 的 点 ， 变 到 坐标 为 
(CPPy) 的 点 ， 从 这 个 意义 上 ， 可 以 称 了 为 几何 变换 。 

设 平面 参数 曲线 C 的 方程 为 x+= xD ,y= y(t)，te [a,b]， 则 参数 曲线 C 在 变换 了 下 的 像 
T(G) 的 参数 方程 为 x= f(x(?), y(D)) ,y= f(x(D), y(D) ,te [a,b]。 

几何 变换 是 计算 机 图 形 学 中 的 基本 理论 ， 有 着 广泛 的 实际 应 用 。 德 国 数学 家 克 莱 因 提 出 ， 
几何 学 的 任务 就 是 研究 在 一 定 的 几何 变换 (这 些 变换 组 成 一 个 群 , 称 之 为 变换 群 ) 下 图 形 的 不 
变性 质 。 例 如 ， 欧 氏 几 何 中 的 变换 是 平面 图 形 的 平移 、 转 动 、 轴 对 称 ， 在 这 些 变换 下 ， 长 度 、 
角度 保持 不 变 。 

本 实验 的 主要 内 容 是 观察 在 几 种 重要 的 几何 变换 下 图 形 的 变化 , 线性 变换 的 矩阵 以 及 和 迭代 
一 个 平面 线性 变换 时 所 出 现 的 一 些 现象 。 


31.1 线性 变换 与 仿 射 变换 
一 般 地 ， 如 果 变 换 T;(x,y) 忆 (x'y') 由 函数 关系 


XxX'=ax+by 
y'=ax+b,y 


决定 ， 其 中 4,b,4,,b, 是 与 xy 无 关系 的 常数 ， 则 称 了 为 线性 变换 ， 它 可 表示 成 矩阵 形式 
x) {a bYx 
orl, 

i 决定 。 


进一步 地 ， 如 果 在 变换 了 下 每 个 点 (x,y〉 的 像 的 坐标 (x'y') 都 是 x,y 的 一 次 函数 


es 


(31-1) 
y'=axt+by+c, 


则 称 变换 了 是 仿 射 变 换 。 仿 射 变换 包括 平移 变换 、 缩 放 变换 、 旋 转变 换 、 对 称 变换 ， 可 表示 
为 如 下 矩阵 形式 : 


(31-2) 
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a 0 0 
b b, 0 


cc 1 


(x',y'"1)= (x,y,1) (31-3) 


表 31-1 给 出 变换 与 矩阵 之 间 的 关系 。 
表 31-1 仿 射 变换 及 其 变换 矩阵 


平移 最为 (mm) 的 平移 变换 


逆 时 针 旋转 9 角度 〈 以 原点 为 中 心 》 


比例 系数 为 a,b 的 缩放 变换 


OoNn 


关于 x 轴 的 对 称 变 换 


OO 


关于 y=x 的 对 称 变换 


Rs 
己 一 呈 


由 于 函数 的 图 像 是 由 (x, f(x)) 点 列 构成 , 因此 , 我 们 可 以 类 似 地 对 函数 的 图 像 作 仿 射 变换 。 


对 函数 的 图 像 作 平移 变换 ， 以 (x)=e 7 为 例 ， 观察 图 像 的 变化 。 
解 : 将 函数 y= 了 (x) 变换 为 y= f(x 一 a) ， 函 数 的 图 像 会 向 右 移动 a 个 单位 ， 这 时 称 a 为 水 平 


位 置 参 数 。 
(1) a>0， 图 像 “ 向 右 移动 ”a<0， 图 像 “ 向 左 移动 "如 图 31-1 所 示 。 


图 31-1 浮 数 图 像 的 平移 变换 


(2) 通过 动画 观察 a 对 图 像 的 影响 ， 如 图 31-2 所 示 。 
”练习 1 请 观察 把 函数 f(x) 变换 化 为 f(x) +b 时， 函数 图 像 的 变化 ? | 
”练习 2 请 观察 把 函数 f(x) 变换 化 为 f(x 一 a)+b 时 ， 函 数 图 像 的 变化 规律 ? 并 给 出 (a,b) 的 意 


义 。 


了 
对 函数 的 图 像 作 伸缩 变换 ， 以 f(x) =e ? 为 例 ， 观 察 图 像 的 变化 。 
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图 31-2 a 对 图 像 的 影响 


解 : 将 函数 y= f(x) 变换 为 y= f(s,x) ， 函 数 的 图 像 会 压缩 或 伸 长 ， 这 时 称 s 为 水 平 位 置 刻度 
参数 。 
(1) s>0 时 ，s 越 大 ， 图 像 “ 越 瘦 ”s 越 小 ， 图 像 “ 越 胖 ”。 如 图 31-3 所 示 。 


-4 -2 2 4 


图 31-3 函数 图 像 的 伸缩 变换 


(2) 通过 动画 观察 s 对 图 像 的 影响 ， 部 分 图 形 如 图 31-4 所 示 。 


S-0.5 SF1.5 $2.5 


二 1 1 
.8 0.8 5 
0.6 0f 
0.4 0 
0.2 有 
4 


-4 -2 2 4 -4 -2 2 4 -4 -2 2 


图 31-4 s 对 图 像 的 影响 
练习 3 请 观察 把 函数 f(x) 变换 化 为 #f(s,x) 时 ， 函 数 图 像 的 变化 ?并 给 出 参数 1 的 意义 。 
二 4 特别 地 ， 观 察 f(x) 变换 为 F(-z,-Fo 图 像 的 变化 ? 
: 对 函数 的 图 像 作 绕 原点 的 旋转 变换 。 以 y = 忆 绕 原点 旋转 为 例 ， 观 察 图 像 的 变化 。 


解 : 设 函 数 图 像 的 原点 为 中 心 旋转 9 角 , 原来 坐标 (x,y) ee y) 具 有 以 下 关系 ， 
如 图 31-5 所 示 。 


C 〇 口 口 口 


31-5 ”函数 图 像 绕 原 点 的 旋转 变换 
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X cos@ -sinO Yx 

y' “lsing cos0 y 
练习 5 任 选 一 个 角度 w ， 决定 一 个 线性 变换 7 :(x, 7F> (x',y”) ， 使 

xX! _ (cosC ~SinC YXx 

国 cosC | 
画 一 个 由 平面 直线 段 或 曲线 段 组 合 的 图 形 C， 在 画 出 它 在 上 述 变换 下 的 像 TCC)， 观 察 T(O) 的 
变化 。 


， 练习 6 给 出 正方 形 ABCD， 绕 其 中 心 进行 旋转 的 同时 还 在 不 断 地 放大 的 变换 。 
设 正 方形 顶点 坐标 分 别 为 4(-L-D, B(-D, C(1,D), D(-1D , 每 次 着 时针 旋转 时 旋转 的 角度 


为 c= 蕊 ， 同时 放大 s = sinc + cosc 。 试 作出 该 变换 过 程 的 图 形 ， 并 注意 观察 图 像 的 变化 。 
31.2 ”线性 变换 的 特征 向 量 


由 线性 代数 知识 , 如 果 非 零 向 量 w= O5 在 线性 变换 T 的 作用 下 的 像 OP'= hu 与 的 方向 平 
行 (方向 相同 或 相反 )， 即 hu =4z 对 某 一 数 1 成 立 ， 则 ww 称 为 了 的 特征 向 量 , 平面 线性 变换 


7 的 特征 值 4 是 -元 = 次 方 得 | 和 =o, 即 4 ?~-(a+b) 和 4+(ab, 一 qb)=0 的 根 。 
2 9 
光阴 的 人际 A= | | 次 定 线性 变 痪 7 | > 人 交加 | 
0 了 》 a bly 


平面 上 每 个 点 P(x,y) 被 变 到 PP\(x',y) ,向 量 0OF 也 就 被 变 到 OFP'。 我 们 可 以 通过 作 图 来 研 
究 向 量 的 方向 的 变换 情况 。 
; 令 变 换 和 矩阵 
4 2 l (其 中 &,,e,,e;,8, 是 小 的 正 实数 ) 


€ l+é 


任 选 ne N ， 在 单位 图 上 依次 选取 个 点 及 os 一 ,si 一下) (0<k<n-1)， 忆 "为 忆 经 变换 7 


后 的 像 ， 试 观察 OP 与 BB' 的 方向 ， 如 图 31-6 所 示 。 


图 31-6 ”OP 与 BB' 的 方向 


练习 7 ”另外 任意 选取 矩阵 4， 重 做 实验 3， 并 给 出 合理 的 解释 。 
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ee 


31.3 ”线性 变换 的 迭代 
31.3.1 “平面 线性 变换 的 迭代 
如 果 令 已 =(x,y%)7， 则 可 以 得 到 这 样 的 点 列 


。 PP =AP n=0,1,2,.… (31-4) 
即 丽 ,4 已 ,4 忆 …,A”* 只 ,…, 在 平面 华 标 系 内 这 个 点 列 会 是 什么 昵 ?这 就 是 我 们 所 要 考虑 的 线 
性 变换 的 迭代 问题 。 
这 里 的 线性 变换 的 形式 为 


| 三 Qnr + a y, (31-5) 


n+l Col7n 十 G2 
人 = 加 即 | > 1 0 Xn 
Vntl =2y, ntl 0 2 yn 
人 二 7 本 2y, 即 Xn+l 1 2 Xn 
Vn+l =3, ntl 3 -1 yn 


从 某 个 给 定 的 (xm, mw 关 开始 ， 画 出 由 (xm, 为 ) 生成 的 点 列 散 点 图 。 
解 : 画 出 由 (x%,y,)=(1,1) 生成 的 点 列 散 点 图 如 图 31-7。 


对 下 述 选 代 


(a) (b) 
图 31-7 由 (mm, 为 ) 生 成 的 点 列 散 点 图 


练习 8 天 于 过 全 阵 4=| 
试 观察 它 的 图 形 有 什么 特点 ? 

练习 9 并 观察 练习 7 中 的 序列 y /xz ,x /x ,y,/y,。 ， 你 能 得 到 什么 结论 ? 

利用 练习 7 的 矩阵 A 并 选择 一 个 (x y)*， 利 用 (31.5) 式 找 出 迁 代 序列 (x,y,)， 并 
现 察 斜率 序列 y, /x, 。 以 便 看 出 选 带 逐渐 收敛 于 某 个 斜率 为 m 的 直线 。m 是 什么 ?观察 
太 /加 和 ya/y， 便 可 看 出 在 很 多 次 迁 代 以 后 映射 的 作用 就 像 苹 放大 了 a 信 : 


| 分 别 从 (yo 六 = (1,D” 和 (Xo, yo) =(1,0)" 开始 迭代 ， 


并 | 三 AX Yn = ay, 
a 是 什么 ? | 
解 : 分 别 画 出 迭代 序列 、 斜 率 序列 yy /x 、 /入 和 yf/y, 的 散 点 图 如 图 31-8。 
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隐 和 1.4 
je 本 1.2 i 
10 DE 
ge 5 °10 15 20 25 30 
5 Lo 人 
5 10 15 20 25 
(a) 人 
1.4 
1.2 。 。 
本 。 0 5 10°45 。2。25 .30 
5。 15 20 25 30 ， 机 
0.8|  。 
0.6| * 0.7 “ 


(©) Gd) 
图 31-8 和 迭代 的 散 点 图 
(a) 选 代 序列 ; ) 区/ ( yj (d) 斜率 序列 y, /x 。 


练习 10 ”选择 几 个 不 同 的 初始 值 (m y,0) ， 重 复 实 验 5 的 工作 。 


0 1 
练习 11 对 矩阵 =| 100 “20 |， 重复 做 练习 7、 练习 8， 观察 所 得 到 的 散 点 图 并 与 4 的 图 
99 99 


形 作 比 较 。 注 意 到 48=BA=E。. 
事实 上 ， 如 果 知 道 { 书 } 的 通 项 ， 就 可 以 很 方便 地 研究 友 代 序列 的 性 质 。 由 迭代 的 过 程 
也 = 4P | =…=Ah"P, 有， 如 果 已 知 P， 只 要 求 出 4 就 可 以 写 出 的 一 般 通 项 。 


n 


如 果 4 为 对 入 短 孟 | 人 } 则 4" -| 中 若 4 不 是 对 角 和 矩阵 ， 由 线性 代数 的 知识 ， 
2 
它 在 一 定 的 条 件 下 与 对 角 和 矩阵 相似 ， 即 存在 可 逆 和 矩阵 P 与 对 角 短 阵 D=| | 使 得 
| 和 
4=PDP-， 于 是 4 = PD?"P- 。 
31.3.2 ”一 般 线 性 变换 的 迭代 
x = ax +aox 十 十 Qnr 
XY) = a Ta 了 十 十 Or) (1.6) 
Rr qt" + Wa 本 “二 Wd 
将 向 量 (x", 区 ),…,x0】 映射 为 向 量 ( 好 ,区 中.…,x0 中 】， 它 可 以 写成 矩阵 形式 
Xl = Ax, (31-7) 


其 中 ,x 为 m 维 向 量 ， 4 为 mxm 和 矩阵 。 
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给 定 一 ,sa@) ， 将 上 述 线性 变换 反复 作用 可 得 到 序列 ， 
on = Axosx = hr = AX,,…, 其 中 有 4 为 迁 代 甜 阵 。 在 31.3.1 中 研究 了 平面 线性 映射 的 
迭 代 ， 即 在 〈31-6) 式 中 误 m 2 的 情况 。 类 似 地 ， 有 

xX, = Ax, | =:…= 4xo (31-8) 


n— 


如 果 4 是 一 个 对 角 和 矩阵 或 与 一 个 对 角 矩 阵 相似 ， 则 可 以 比较 方便 地 求 出 A"， 从 而 可 以 得 到 x 
的 通 项 。 

我 们 无 法 像 n=2 的 情形 ， 画 出 平面 图 形 来 观察 x 是 否 随 着 大 的 增长 而 趋向 于 一 个 固定 的 - 
方向 ， 但 可 以 通过 作 数 值 计算 来 验证 x, 与 x, , 趋 于 成 正比 。 

ne ed me 
= 一 09 四.0 其 申 站 = 四 1=52…5m :从而 |+ 41 
有 基站 化、 

=A4y = ， 再 对 为 作 归 一 化 ， 得 了 了 =crx( 其 中 
| x0|+ pel) 。 依 此 类 推 ， 得 半 , 卫 ,7,…,Y ,8,…, 其 中 六 =cr AY, ci 为 AY,, 
各 分 量 绝 对 值 之 和 。 如 果 随 着 上 的 增 大 ，Y,， -的 所 有 分 量 都 赵 于 0， 即 Y, 趋 于 一 个 固定 的 
向 量 Y， 则 

AY =cY (31-9) 

式 31-9) 对 某 个 常数 c 成 立 ， 即 有 了 为 特征 向 量 ，c 为 4 的 绝对 值 最 大 的 特征 值 。 这 种 求 特 
征 向 量 的 方法 称 为 乘 寡 法 。 这 即 为 实验 二 十 八 中 介绍 的 乘 宕 法 的 几何 意义 。 
练习 12 选 定 一 个 阶 逢 阵 4， 使 它 的 所 有 元 素 w >0， 取 初始 向 量力 = ,二 的 所 有 


分 量 相等 ， 按 上 述 方法 进行 实验 ， 观 察 双 , -了 是 否 随 着 k 的 增 大 而 趋 于 零 向 量 。 
练习 13 用 以 上 理论 ， 令 m=2 解 释 31.3.1 中 实验 结果 的 一 些 现象 。 
附 ”Mathematica 程序 
1. 实验 1 的 程序 
g[x_] := Exp[-x^2/2];Plot[g[x], {x, -5, 5}]; 
Plot[{g[x + 1], g[x], g[x - 2]}, {x, -5, $}, PlotRange -> {0, 1.2},PlotStyle 
-> {RGBColor[]1, 0, 0.802], RGBCoior[1, 0, 0], RGBColor[0, 1, 0.251]}]; 
Do[Plot[g[x - al], {x, -$5, 5}, PlotRange -> {0, 1.2}， 
PlotLabel -> "a=" <> ToString[a]], {a, -3, 3, 0.5}] 
2. 实验 2 的 程序 
g[x_] := Exp[-x^2/2]; 
Plot[{g[1/2 x], g[x], g[2 x]}, {x, -5, $}, PlotRange -> {0, 1.2}, 
PlotLabel -> "'s=0.5,1,2", PlotStyle -> {RGBColor[]1, 0, 0.802], 
RGBColor[l, 0, 0], RGBColor[0, 1, 0.2S1]]]; 
Dol[Plot[g[x s], {x, -4, 4}, PlotRange -> {0, 1.2}, PlotStyle -> 
RGBColor[1, 0, 0], PlotLabel -> "'s="' <> ToString[s]], {s, 0.5, 2, 0.25}]; 
3. 实验 3 的 程序 
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al = 0.1; a2 = 0.01; 83 = 0.01; a4 = 0.S;A = {{1 + al, a2}, {a3, 1 + a4}} 

Eigenvalues[A] 

Eigenvectors[A] 

eigshow[A] 

unitImage[A, Eigenvectors[A]]; 

4. 实验 4 的 程序 

Clear[b x, A];A = {{1, 0}, {0, 2}}; x = {1, 1}; t= {}; 

Do[x = A.x; t = Append[t, x], {i, 30]}]; 

ListPlot[t, PlotStyle -> PointSize[0.01]]; 

Clearlt, x, Al;A = {{1, 2}, {3, -1}}; x = {1, 1}; t = {}; 

Dolx = A.x; t = Append[t, x], {i, 30}]; 

ListPlot[t, PlotStyle -> PointSize[0.015]]， 

5. 实验 5 的 程序 

Clear[t, x, A]; xold = x[[1]]; yold = x[[2]]; 

A={{0.2,0.99}), {1,0}}; x={1,2Bt=0;tl={;t2=0;G={; 

Do[xnew = A[[1]][[1]] xold + A[[1]]([2}] yold; 
ynew = A[[2]][[1]] xold + A[[2]1([2]] yold; t = Append[b {xnew, ynew}]; 

tl =Append[tl, xnew/xold]; t2 = Append[t2, ynew/yold]; 

全 = Appendft3， ynew/xnew]; xold = xnew; yold = ynew, {i, 30}]; 

ListPlot[t, PlotStyle -> PointSize[0.02]]; 

ListPlot[tl, PlotStyle -> PointSize[0.02]]; 

ListPlot[t2, PlotStyle -> PointSize[0.02]]; 

ListPlot[t3, PlotStyle -> PointSize[0.02]]; 
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实验 三 十 二 ”迭代 与 分 形 


几何 学 的 研究 对 象 是 物体 的 形状 。 在 自然 界 中 , 许多 物体 的 形状 是 不 规则 的 ， 如 弯 弯 曲 曲 
的 海岸 线 、 变 换 的 浮云 等 ， 这 些 物体 的 形状 的 共同 特点 ， 就 是 不 规则 ， 不 光滑 。 但 是 ， 经 典 几 
何 学 都 是 以 规则 而 光滑 的 几何 形状 为 研究 对 象 的 。 例如 ,在 解析 几何 与 微分 几何 中 , 研究 的 直 
线 、 曲 线 、 曲 面 等 都 是 光滑 的 。 这 表明 各 种 经 典 几 何 学 ,实际 .上 是 对 客观 世界 中 物体 形状 的 不 
精确 描绘 。 如 把 事实 上 凹凸 不 平 的 地 球 表 面 看 成 是 椭 球 面 ， 虽然 在 许多 情况 下 ,这样 做 并 不 妨 
碍 我 们 得 到 非常 符合 实际 的 结果 如 发 射 地 球 人 造 卫 星 )。 但 是 ， 随 着 人 类 对 客观 世界 认识 的 
逐步 深化 以 及 科学 技术 的 不 断 进 步 , 这 种 把 不 规则 的 物体 加 以 规则 化 处 理 的 做 法 就 不 能 令 人 满 
意 了 。 于 是 ， 在 20 世纪 70 年 代 ， 法 国 数学 家 曼 德 勃 罗 特 (Mandelbrot B. B.) 在 法 兰 西学 院 首 
次 (1973 年 ) 提出 了 分 形 (fractal) 的 思想 。 分 形 几 何 学 为 描述 复杂 现象 和 探索 物质 世界 的 复 
杂 机 制 提供 了 简洁 的 工具 。 他 被 誉 为 开创 了 20 世纪 数学 的 重要 阶段 ， 曼 德 勃 罗 特 也 因此 获得 . 
了 1985 年 度 的 Barand 奖章 。19 世纪 的 数学 家 凭借 想象 创造 出 来 的 不 够 光滑 的 、 不 够 规则 的 
曲线 ， 如 科 赫 koch 曲线 、 维 尔 斯 特 拉 斯 (Weierstrass K.) 曲 线 等 ， 一直 都 被 视 为 “病态 ” 曲线 ， 
认为 不 值得 研究 而 不 予 理 皮 。 事实 上 ， 这些“ 病态 ” 曲线 ， 正 是 分 形 几 何 学 的 主要 研究 对 象 。 

尽管 分 形 的 提出 只 有 20 多 年 的 时 间 ， 但 它 已 经 在 自然 科学 的 诸多 领域 如 数学 、 物 理 、 化 
学 、 材 料 科 学 、 生 命 科 学 、 地 质 、 地 理 、 天 文 、 计 算 机 乃至 经 济 、 社 会 、 艺 术 等 极其 广泛 的 领 
域 有 着 重大 的 应 用 ， 可 以 毫 不 夸张 地 说 ,“ 分 形 是 大 自然 的 几何 学 ”“ 分 形 处 处 可 见 ”。 


32.1 生成 元 

如 果 有 一 条 线段 ， 则 用 两 段 小 线段 代替 它 ， 后 者 即 为 5， 称 之 为 生成 元 。 

早 在 19 世纪 末 20 世纪 初 ， 一 些 数 学 家 就 构造 出 一 些 边界 形状 极 不 光滑 的 图 形 。 由 于 这 
类 图 形 长 期 以 来 被 视 为 “不 可 名 状 的 ”或 “病态 的 ” 因而 ， 只 有 当 人 们 需要 反例 时 才 想 到 他 
们 。 这 类 图 形 的 构造 方式 有 一 个 共同 特点 ， 即 最 终 图 形 F 都 是 按照 一 定 的 规则 R 通过 对 初始 
图 形 不 断 修改 得 到 的 。 其 中 最 具有 代表 性 的 图 形 是 Koch 曲线 ，Koch 曲线 的 构造 方式 是 : 

给 定 一 条 直线 段 矿 ， 将 该 直线 三 等 分 ， 并 将 中 间 的 一 段 用 以 该 线段 为 边 的 等 边 三 角形 的 
另外 两 条 边 蔡 代 ， 得 到 图 形 下 (如 图 32-1 所 示 )。 然 后 ， 再 对 图 形 FF 中 的 每 一 小 段 都 按 上 述 
方式 修改 ， 以 至 无 穷 。 则 最 后 得 到 的 极限 曲线 琅 =lim F 即 是 所 谓 的 Koch 曲线 。 


图 32-1 ”Koch 曲线 的 生成 过 程 
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Koch 曲线 的 修改 规则 R 是 将 每 一 条 直线 段 古 用 一 条 折线 下 替代 ， 我 们 称 书 为 该 分 形 的 
生成 元 。 分 形 的 基本 特性 完全 由 生成 元 决定 。 因 此 , 给 定 一 个 生成 元 ， 我 们 就 可 以 生成 各 种 各 
样 的 分 形 图 形 。 

星 苞 了 用 计算 机 绘 出 Koch 曲线 的 图 形 。 
解 : Koch 曲线 的 图 形 如 图 32-2。 


图 32-2，Koch 曲线 


练习 1 你 能 否 自己 构造 一 些 生成 元 , 并 由 此 绘 出 相应 的 分 形 图 形 ? 任 取 分 形 图 形 的 一 个 局 部 
并 将 它 放 大 ， 它 同 原来 的 分 形 图 形 有 什么 关系 ? 

从 一 个 正三 角形 出 发 , 用 Koch 曲线 的 生成 元 作 和 迭代 得 到 的 极限 图 形 称 为 Koch 雪花 曲线 。 
练习 2 试 计算 雪花 曲线 的 周 长 及 面积 ， 它 们 是 否 有 限 ? 你 如 何 解释 所 得 出 的 结论 ? 

不 难 想象 ， 如 果 改 变 生成 元 ， 便 可 导致 另外 的 曲线 。 例 如 ， 线 段 a 用 一 条 由 8 个 相等 线段 
组 成 的 折线 b- 替 代 ， 那么 从 一 条 线段 出 发 ， 生 成 一 条 弯 弯 曲 曲 的 折线 , 无 限 地 迭代 下 去 导致 一 
条 分 形 曲线 ， 称 为 Minkowski 分 形 ， 又 称 之 为 Minkowski 香肠 。 

3 绘 出 Minkowski 香肠 的 图 形 。 
解 ， Minkowski 香肠 的 图 形 如 图 32-3。 


图 32-3 ”Minkowski 香肠 


假设 生成 元 由 n 条 线段 构成 ， 每 段 长 度 为 原 线段 长 度 的 ， 定 义 该 分 形 的 维 数 为 
_ log(”) 
= (32-1) 
练习 3 想 一 想 分 形 维 数 的 大 小 反映 了 分 形 的 什么 特性 ? 
练习 4 利用 公式 (32-1) 计算 Koch 曲线 ，Minkowski 香肠 的 维 数 。 
定义 Weierstrass 函数 如 下 : 
W(x)= SA sin(Ax), A>L1l<s<2 


k=1 


荣光 到 对 不 同 的 s 值 ， 画 出 Weierstrass 函数 的 图 像 。 
解 : 画 出 Weierstrass 函数 的 图 像 如 图 32-4。 
练习 5 观察 图 像 的 不 规则 性 与 s 的 关系 ， 由 此 猜测 Weierstrass 函数 图 像 的 维 数 与 s 的 关系 。 
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(c) (d) 
图 32-4 ” Weierstrass 函数 的 图 形 
(a) s=1.0; (b) $=1.25; (©) s=1.5; (d) s=2.0。 


32.2 ”Julia 集 与 Mandelbrot 集 


早 在 19 世纪 就 有 一 些 数学 家 对 复 变 函 数 的 迭代 进行 研究 。 然 而 ， 直 到 20 世纪 80 年 代 ， 
B. Mandelbrot 才 将 复 变 函 数 的 迭代 与 分 形 联系 起 来 ， 并 绘制 出 了 第 一 张 以 他 的 名 字 命名 的 引 
人 入 胜 的 分 形 图 形 。 复 变 函数 的 迭代 由 此 再 一 次 成 为 数学 家 的 热点 研究 问题 。 
Julia 集 与 Mandelbrot 集 来 自 非 线性 映射 x 一 好 + 有 。 实 际 上 ， 从 单 峰 映 射 
x f(x)=Ax(—x) 
经 过 变换 可 得 
x f(x)=x+H 
给 定 初始 复数 Z  ， 考 虑 如 下 的 迭代; 
Zi =Z+ 有 ， 大 =0152… (32-2) 
其 中 DZ ， 庆 =0,1,2…; 为 复数 ，J4 为 ( 复 ) 常数 。 
对 于 给 定 的 初始 点 Zu, ， 和 迭代 序列 {Z.}。 有 五 人 界 ， 也 可 能 发 散 到 无 穷 。 令 j, 是 使 得 迭 
代 序 列 {Z,}>_。 有 界 的 所 有 初 值 Z, 构成 的 集合 ， 
={Z i }” 有 界 } (32-3) 
我 们 称 j, 在 复 平面 上 构成 的 集合 为 Jalia 集 。 对 不 同 的 参数 由，Julia 集 的 形状 也 会 不 同 。 特 别 
地 ，=0 对 应 的 Julia 集 为 单位 圆 盘 。 
如 果 固 定 初 值 Zz 则 对 不 同 的 参数 4 ， 选 代 序列 { 忌 je 的 有 界 性 也 不 相同 。 令 Mz 是 使 得 
迭代 序列 {Z.}x。 有 界 的 所 有 参数 值 凡 构成 的 集合 ， 旧 
Mz = 人 和 迭 代 序列 [(Z:jR 有 界 } (32-4) 
则 称 M， 在 复 平 面 上 构成 的 集合 为 Mandelbrot 集 。 


292 


现在 考虑 这 样 一 个 问题 : 在 复 平 面 上 , 使 Z -> Z? + 确定 的 过 程 成 为 有 界 的 , 那么 复数 
〈 它 是 复 动 力 系数 的 参数 ) 将 怎样 分 布 在 复 平面 上 ? 
尽管 映射 是 简单 的 ， 但 要 想 了 解 如 此 复数 有 4 构成 的 点 集 ， 并 非 易 事 ， 还 是 要 借助 计算 机 
绘图 的 手段 才能 对 它 产生 直观 的 了 解 。 
为 了 便于 在 计算 机 上 绘 出 Julia 集 与 Mandelbrot 集 , 令 Z. =x +iy,;K=p+iqg， 则 (32-2) 
式 可 改写 为 


Yin =2xy +4 


记 n= 台 + 此 ， 则 Julia 集 为 使 得 序列 {jo 有 界 的 初始 点 (%,y) 构成 的 集合 ，Mandelbrot 集 
为 使 得 序列 {7 }>_。 有 界 的 参数 (p,q) 构成 的 集合 。Julia 集 与 Mandelbrot 集会 是 什么 样子 ? 如 果 
没有 计算 机 的 帮助 ， 你 是 很 难 想象 的 。 下 面 ， 我 们 给 出 这 两 种 集合 的 计算 机 作 图 法 。 
Julia 集 绘制 方法 : 

(1) 设 定 初 值 p,qg ， 一 个 最 大 的 迭代 次 数 N ， 图 形 的 分 辩 率 的 大 小 4 丸和 使 用 的 颜色 数 天 

(如 K=16) (或 者 给 定 灰 度 级 二); 
(2) 设 定 一 个 上 界 值 M> max(2,Vp? + gq”); 
(3) 将 矩形 区 域 R= {(x yj-M <xy 扎 M} 分 成 axb 的 网 格 ， 分 别 以 每 个 网 格 点 (f,8g,)， 


2 =-M + xj, i=0,1,…,q,j=0,1,…,b 作 为 初 值 (%,y) 作 迁 代 (实际 上 ， 
a 


只 需 对 满足 区 + 为 乏 M 的 初始 点 和 迭代 )。 如 果 对 所 有 nN, x + y 志 M?， 则 将 图 形 的 (i, ]) 像 
素 点 用 黑色 显示 。 否 则 ， 如 果 从 迁 代 的 某 一 步 mm 开始 有 区 + y% < M”， 则 用 第 mn mod 种 颜 
色 显 示 相 应 像素 〈 或 者 用 相应 的 灰 度 级 显示 )。 
Mandelbrot 集 绘 制 方法 : 

(1) 设 定 一 个 最 大 的 迭代 次 数 W， 图 形 的 分 辨 率 的 大 小 a,b 和 使 用 的 颜色 数 玉 (如 玉 =16 ) 
(或 者 给 定 灰 度 级 L)。 

(2) 设 定 一 个 上 界 值 M>2。 

(3) 将 矩形 区 域 R={(p,q)|-M 和 pq<M] 分 成 Cx 户 的 网 格 ， 分 别 以 每 个 网 格 点 (f,8,)， 
f=-M + xi, -=-M+2 xj, i=0,1…,a,j = 01… 光 作为 参数 值 作 迭 代 〈 实 际 上 ， 只 


需 对 满足 六 + 全 入 4 的 初始 点 迭代 )。 每 次 迭代 的 初 值 均 取 为 (x%,y,)=(0,0) 。 如 果 对 所 有 ms 
六 六 + 天 入 M ， 则 将 图 形 的 避 方 像 素 点 用 黑色 显示 。 否 则 ， 如 果 从 和 欠 代 的 某 一 步 思 开始 有 
驶 十 总 三 有 M*， 则 用 第 n,mod KK 种 颜色 显示 相应 像素 (或 者 用 相应 的 灰 度 级 显示 )。 

器 坦 外 ”绘制 Julia 集 的 图 形 。 

解 :选取 初 值 p = 0.27334,g = 0.00742 ，Julia 集 的 图 形 如 图 32-5。 

练习 6 对 不 同 的 参数 (p,qg) : (0,1)，(-1,0) ，(0.11,0.66) ，(-0.10281,0.95723) ，(-1.25,-0.01) 
观察 Julia 集 的 变化 。 取 Julia 集 的 不 同 局 部 放大 ， 你 能 看 到 某 种 自 相 似 现 象 吗 ? 

本 要 昌 绘制 Mandelbrot 集 的 图 形 。 

解 Mandelbrot 集 的 图 形 如 图 32-6。 


ye 
I Yk EA k=0,1,2,... (32-5) 
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1.5 0.1 
=1.5 ~1 =0:5 0. .015 汪汪 汉 -0.7-0.65-0.6-0.55 -0.5-0.45 -0.4 


(a) 人 b) 
图 32-5 ”Julia 集 的 图 形 
(a) Julia 集 的 图 形 ，(b) Julia 集 的 局 部 放大 图 形 


-0.25 | 、 ， 
-0.9 -0.85 -0.8 -0.75 -0.7 


DAs TH05 0 05 1 
图 32-6 ”Mandelbrot 集 的 图 形 及 其 局 部 放大 图 形 


练习 7 任意 选取 Mandelbrot 集 的 一 个 局 部 将 其 放大 , 然后 再 将 放大 图 形 的 不 同 局 部 放大 , 由 
此 观察 Mandelbrot 集 与 Jilia 集 有 何 关系 。 
练习 8 选取 参数 几 位 于 Mandelbrot 集 的 不 同 部 位 ， 观 察 相应 的 Julia 集 的 形状 的 变化 。 
Julia 集 与 Mandelbrot 集 可 以 推广 到 高 阶 情形 。 一 般 地 ， 考 虑 迭代 
Zin=2r tec, k=0,],.… 


使 得 迭代 (32- 5 ) 有 界 的 初 值 Z 构成 n 阶 Julia 集 ， 对 固定 的 参数 Z ， 使 得 选 代 (32-5) 有 
界 的 参数 c 构成 nn 阶 Mandelbrot 集 。 

练习 9 试 画 出 三 阶 、 四 阶 及 五 阶 Julia 集 与 Mandelbrot 集 ， 并 通过 放大 不 同 局 部 观察 它们 的 
自 相似 性 。 


32.3 ”迭代 函数 系统 


和 迭代 函数 系统 简 记 IFS(Iterated Function System)， 这 是 分 形 绘制 的 典型 重要 方法 。 它 的 最 
早 论述 似乎 是 由 Hutchinson(1981 年 ) 给 出 的 。IFS 的 基本 思想 并 不 复杂 ， 它 认定 几何 对 象 的 全 
和 貌 与 局 部 ， 在 仿 射 变换 的 意义 下 ， 具 有 自 相 似 结构 。 这 样 一 来 ， 几 何 对 象 的 整体 被 定义 之 后 ， 
选 定 若干 仿 射 变换 ， 将 整体 形态 变换 到 局 部 。 并 且 这 一 过 程 可 以 迭代 地 进行 下 去 ， 直 到 得 到 满 
意 的 造型 。 在 现实 中 ， 具 体 技巧 相当 重要 。 例 如 ， 这 些 仿 射 变换 的 选取 ， 往 往 由 操作 者 通过 交 
互 方式 在 计算 机 上 逐个 调整 来 实现 。 当 注重 几何 对 象 的 总 体形 态 时 ，IFS 是 相当 成 功 的 。 在 不 
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同 的 局 部 之 间 有 着 高 度 的 相关 性 ， 这 是 有 待 改进 的 地 方 。 
32.3.1 ”混沌 游戏 


现在 让 我 们 在 平面 上 作 一 个 绘图 游戏 ， 在 纸 上 任 意 设 定 3 个 点 ， 分 别 记 为 4,B,C 。 游 戏 
的 规则 是 : 任意 取 第 4 个 点 ， 记 为 忆 。 现 在 假想 你 有 一 枚 硬币 ， 你 的 投 搓 有 时 使 它 成 正面 ， 
有 时 则 成 反面 ， 也 有 时 侧 立 《虽然 概率 较 小 )。 当 你 投 搓 一 次 硬币 之 后 ， 如 果 它 呈正 面 ， 则 在 
纸 上 画 出 Z 和 A 的 中 点 ， 记 为 Z, ， 如 果 它 呈 反 面 ， 则 画 出 Z, 和 如 的 中 点 ， 记 为 Z, 。 如 果 它 
呈 侧 立 状 态 ， 则 画 出 Z, 和 C 的 中 点 ， 记 为 Z, 。 总 之 ， 我 们 画 出 了 一 个 新 的 点 Z, 。 以 后 的 每 一 
步 都 重复 这 一 做 法 ， 也 就 是 说 ， 在 第 nn 步 画 出 一 点 记 为 Z,,, ， 使 得 


Z,, = 委 + 人 4 ， 当 硬币 成 正面 


Zi = 2 》 当 硬 币 反 正面 


,n= 和 二 ， 当 硬币 旺 侧 立 
当 这 一 游戏 长 时 间 地 做 下 去 , 设想 能 做 上 百 万 次 ,去 掉 开始 时 的 少数 几 个 点 , 看 看 纸 上 的 
点 集 呈现 什么 样 的 图 形 。 当 然 ， 百 万 次 的 实验 ， 既 或 3s 在 纸 上 出 现 一 个 新 的 点 ， 不 停 地 做 也 
得 一 个 多 月 。 
如 果 我 们 按照 上 述 步 又 迁 代 下 去 ,最 终 得 到 的 图 形 会 是 什么 样子 昵 ? 如 果 达 代 仅仅 只 有 一 
千 次 或 一 万 次 ， 你 将 会 看 到 乱七八糟 的 一 片 。 因 此 有 人 把 这 个 游戏 称 为 “混沌 游戏 "。 但 当先 
代 次 数 在 一 百 万 次 以 上 时 ， 图 形 将 渐渐 开始 清晰 。 图 32-7 给 出 了 和 迭代 一 亿 次 的 结果 。 


图 32-7 混沌 游戏 的 图 形 


32.3.2 ”迭代 函数 系统 


上 述 绘图 游戏 中 的 迭代 即 是 TS 迭代 的 一 般 提 法 是 : 
给 定 一 组 〈 仿 射 ) 变换 mw， 
(xy =a xta ytbi,a xta yt+h), i=1,2,.,n 

以 及 相应 的 一 组 概率 p.,…, p, (pi +…+ ps =1,p, >0) 。 对 于 任意 选取 的 初始 值 Z = (x%,y)， 以 
概率 p, 选 取 变 换 @,， 作 办 代 ZZ = (yaD)=O 7 ) n=0,4…， 则 点 列 Z, ,n=0,1… 收 敛 
的 极限 图 形 称 为 一 个 IFS 吸引 子 。 利 用 IFS 迭代 不 仅 可 以 生成 许多 有 趣 的 分 形 图 形 , 而 且 可 以 
应 用 于 分 形 图 像 的 压缩 。 下 面 ， 给 出 IFS 迭代 绘制 分 形 的 方法 。 

设计 算 机 屏幕 的 可 视窗 口 为 V ={ (x,y)| x <xz< xm， mn 和 ys< yw 按 分 辨 率 大 小 的 要 
求 将 了 分 成 wxz 的 网 格 ， 网 格 点 为 (zx,y) ， 这 里 
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天 一 Xin 十 (ws — Xnin)i/la, i=0,,.…,a 

yi = yrin + (you — Yrnin)j/b, j=0,L,..,b 
用 多 表示 和 矩形 区 域 { (x,y)|x <x< 4， yy< yn }。 假设 我 们 采取 具有 工 (如 L=256) 级 灰 度 
的 黑白 图 像 绘制 ， 总 共 的 迭代 次 数 为 N ， 其 中 落 于 区 域 V 中 的 点 的 个 数 为 4 。 再 记 
HA=max 4 ,i=0,1…,a-1，j=0,1…,b 一 1, 则 像素 (i,j) 的 灰 度 G(i,j) 与 落 于 V, 中 的 点 数 成 
正比 


GGi,))=-hy -LxL 


于 是 给 出 了 IFS 迭代 产生 的 分 形 的 工 级 灰 度 图 像 。 
回顾 前 面 介绍 的 混沌 游戏 中 的 分 形 生成 ， 归 纳 起 来 有 三 个 步骤 : 


(1) 给 出 仿 射 变换 0(D) =3(Z+A),0,(2)=7(2+8), (2)=TZ+O): 


(2) 给 出 概率 向 量 (pi, p,, p,),p; >0, Pit+ Pp,+ ps =1; 

(3) 通过 一 个 迭代 过 程 绘制 了 Sierpinski“ 地 毯 ”。 
窦 荔 苗 如 果 把 三 个 概率 分 别 取 为 = p, = 户 。 -5 ， 则 选 代 一 百 万 次 的 图 形 如 何 ? 
解 : 迭代 一 百 万 次 的 图 形 如 图 32-8。 


图 32-8 IFS 迭代 的 图 形 


练习 10 再 取 一 组 其 它 的 概率 值 绘制 相应 的 图 形 ， 结 果 又 如 何 ? 据 此 ， 你 认为 概率 的 选取 对 
最 终 的 极限 图 形 (IFS 吸引 子 ) 有 没有 影响 ? 概率 的 作用 是 什么 ? 
练习 11 给 定 仿 射 变换 

W (2)=5Z +1,0,(2)=sZ -1 


以 及 相应 的 概率 p= p=， 其 中 %Z 均 为 复数 。 取 s=0.5+0.5i， 给 制 相应 IFS 选 代 的 吸引 
子 的 图 形 。 取 不 同 的 *， 观 察 图 形 的 变化 。 
练习 12 考虑 两 个 更 一 般 的 变换 
wo(Z)=VZ-C,w(Z)=VZ+C 
以 及 相应 的 概率 p= p= 了 ， 其 中 C,Z 均 为 复数 。 取 不 同 的 参数 C (如 C=i，C=-1， 
C=0.11+0.66i 等 )。 观 察 图 形 的 变化 。 你 能 发 现 什么 现象 ? 
32.3.3 “IFS 生成 分 形 的 典型 例子 
实验 名 ”Cantor 树 形 。 设 ,2,,2, 表 示 复数 ， 在 平面 上 它们 不 在 同一 直线 上 。 考 虑 仿 射 变换 
(2) =3(2+22)), j=123 
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及 概率 向 量 人， ; 司 ， 画 出 兴 代 的 图 形 。 


解 : IFS 全 32-9 所 示 的 图 形 。 


hh | 


hh [ 
生生 而 血 全 上 血 熏 


图 32-9 Cantor 树 形 


由 于 它 直 观 上 像 一 棵 树 ， 而 且 分 叉 形式 为 Cantor 三 分 集 的 结构 ， 故 称 之 为 Cantor 树 形 。 
Julia 集 。 在 前 面 已 介绍 过 绘制 Julia 集 的 方法 ， 这 里 基于 IFS 的 思想 ， 利 用 所 谓 反 和 
代 方 法 对 Julia 集合 进行 绘制 。 记 F(Z)=Z?+C，2Z,C 为 复数 。 设 ZZ 是 给 定 的 点 ， 我 们 寻找 Z 
使 得 F(Z)=2Z?+C =2Z,， 由 此 给 出 两 个 变换 : 

wow(Z)=VZ-C ,wm,(Z)=-YZ-C 
取 概 率 向 量 为 (0.5,0.5) 。 这 时 通过 IFS 产生 的 吸引 子 就 是 Julia 集 ， 也 就 是 那些 通过 
FE(Z)=Z2+C 选 代 不 收敛 于 原点 也 不 发 散 至 无 穷 的 点 集 。 
解 : 绘 出 不 同 的 C 值 所 对 应 的 Julia 集 。 


C = -0.15652 —1.03225i C=0.11031 - 0.67037 i C=0.35 + 0.05 ii 
C=—0.12256117 +0 .74486177 ii C=0.32+ 0.043 ii C=—0.390541 - 0.586788 ii 


图 32-10 ”IFS 产生 Julia 集 


带 梗 的 植物 叶子 。 稍 复杂 的 例子 是 利用 IFS 方法 绘制 带 梗 的 植物 叶子 〈 如 图 32-11 )。 
子 之 所 以 典型 ,是 由 于 它 除 了 植物 的 叶子 是 通过 三 个 仿 射 变换 及 相应 的 概率 向 量 决定 之 
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外 ， 还 附加 了 “ 画 出 梗 ” 的 条 件 。 把 这 一 个 条 件 也 写成 一 个 仿 射 变换 w(x) = 工 ， 并 相应 地 增 
加 一 个 概率 分 量 。 如 果 仿 射 变换 集 {@,: j=0,1…,N} 的 概率 向 量 为 (po, pi, py,…,p,) ，0< 
po <1， 那 么 令 p) = pj /1 Po)， 于 是 (Pi,P;,…,P,) 是 {0@) :j=1,2,…, 和 N} 相 应 的 概率 向 
量 。Bamsley 等 给 出 的 例子 是 


el el j=12.3,4 
y rsin@ 6cos9 lly 大 


图 32-11 带 梗 的 叶子 IFS 图 形 


式 中 各 参数 的 数值 表示 在 表 32-1 中 给 出 ， 其 中 +,9,s,9 的 含义 为 

r: 沿 x 轴 方 向 缩放 的 倍数 ， 

6 : x 轴 逆 时 针 方 向 的 旋转 角度 ; 

5: 沿 y 轴 方向 缩放 的 倍数 ; 

9 : 》 轴 道 时 针 方向 的 旋转 角度 。 

/大 表示 平移 的 坐标 值 。 变 换 w(z) 产生 点 集 L， 本 实验 中 它 起 的 作用 是 绘 出 叶子 的 梗 。 


表 32-1 仿 射 变换 的 参数 什 


附 ”Mathematica 程序 
1. 实验 1 的 程序 
kochsnow[ptlist_List] := Block[{tmp = {}, i, pnum = Length[ptlist]}, 
For[i = 1,i < pnum, i=i+ 1, tmp = Join[tmp, {ptlist[[i]], ptlist[[i]]*2/3 + 
ptlist[[i + 1]}Y3, (ptlist[[i]] + ptlist[[i + 1]])/2 + {ptlist[[i]][[2]] - ptlist[[i + 1]][[2]], 
ptlist[[i + 1]][(1]] - ptlist[[i]][(1]]}*Sqrt[3Y6,ptlist[[i]]/3 + ptlist[[i + 1]]*2/3, ptlist[[i + 
1]]}]; tmp] ; 
inko01 = {{0, 0}, {1, 0}}; 
Show[Graphics[Line[Nest[kochsnow,inko01,5]],AspectRatio->Sqrt[3]/6]]; 
2. 实验 2 的 程序 
minkowski[ptlist_List] := Block[{tmp = {}, tmpl,i pnum = Length[ptlist]}， 
For[i = 1,i< pnum,i=i+1, 
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tmpl = {ptlist[[i]]{[21] - ptlist[fi + 13][[2]1, ptlist[li + 11]I[11] - Ptlist[ 罗 JU]/4; 
tmp = Join[tmp, {ptlist[[i]], ptlist[[i]]*3/4 + ptlist[[i + 1]1/4 + tmpl， 
ptlist[[i]}/2 + ptlist[[i + 1]]}/2 + tmpl, ptlist[[i]]/2 + ptlist[[i + 1])/2, 
ptlist[[i]/2 + ptlist[[i + 1]]/2 - tmpl, ptlist[[i]}/4 + ptlist[[i + 1]]*3/4 - tmpl, 
ptlist[[i]/4 + ptlist[[i + 11]*3/4, ptlist[[i + 1]]}]]; tmp] 
mkl[ptliist_List]:=Block[{tmp={ptlistL[H]][[2]]-ptlist[[2]][[2]],ptlist[[2]][[ 匡 ]- 
ptlist[[11][[1]1}/4},{ptlist[[1]], ptlist[[11]*3/4 + ptlist[[2]}/4, ptlist[{1]]*3/4 + ptlist[[2]]/4 + tmp, 
ptlist[[1]]/2 + ptlist[[2]]/2 + tmp, ptlist[[111/2 + ptlist[[2]]/2, ptlist[[111/2 + ptlist[[2]]/2 - tmp， 
ptlist[(1]1/4 + ptlist[[2]]*3/4 - tmp, ptlist[[1]1/4 + ptlist[[2]]*3/4, ptlist[[2]]}] 
mk2[ptlist_List] := Block[{tmp = {}, i, pnum = Length[ptlist]}， 
Forfi = 1,i < pnum,i=i+1, tmp = Join[tmp, mk1[{ptlist[[i]], ptlist[fi + 11]}1]}; tmp] 


in01 = {{0, 0}, {1, 0}}; 
Show[Graphics[Line[Nest[minkowski, in01, 4]], AspectRatio -> 1/GoldenRatio]]; 
Show[Graphics[Line[Nest[mk2, in01, 4]], AspectRatio -> 1GoldenRatio]]; 
3. 实验 3 的 程序 
lambda = 3; nmax = 30; s = 1.5; 
Plot[Sum{llambda 人 ^((s - 2)*k)*Sin[lambda^k*x], {k, 1, nmax}], {x, -1, 1}]; 
4 实验 4 的 程序 
julialx_,y_, lim ,cx_,cy_] := Block[{z, ct = 0},z =x+1I*y; 
While[(Abs[z] < 2.0) && (ct < lim), ++ct; z = Zz*z + (Cx + I*cy);]; Returnfct];] 
julia2 = Show[julial, Graphics[Line[{{-0.7, -0.1}, {-0.3, -0.1}, {-0.3, 0.3}, 
{-0.7, 0.3}, {-0.7, -0.1}}]]]l; 
5. 实验 5 的 程序 
iter[x_,y_ ,lim_] := Blockf{c, z, ct}, Cc =x +I*y;zZ =C; ct=0; 
While[(Absfz] < 2.0) && (ct < lim), ++ct; Zz = 2z*z + c;]; Return[fctj;] 
mandelbrot2 = Show[fmandelbrot1l, 
Graphics[Line[{{-0.9, -0.25}, {-0.7, -0.2S}, {-0.7, -0.05}, {-0.9, -0.05}, {-0.9, -0.25}}1]]; 
6. 实验 6 的 程序 
pl = 1/3; aaa = /2 +T1//N;filz ] := (z+ aaa)/2; 
p2 = 1/3; bbb = 0 // N; f2[z_] := (2 + bbb)/2;p3 = V3; ccc = 1//N; f3[z_] := (z + cee)/2; 
ffz_1 := Block!{tmp}, tmp = Random[]; 
Which{tmp < pl, fi[z], tmp < pl + p2, f2[z], True, f3[z]]};Array{fmu, {150, 150}]; 
IFSshow[z0_, shrange_List, divi_List, nmax_] := 
Block[{i, j, z = z0, a = divi[{1]], b = divi[[2]],templ, temp2, mumax = 0}, 
Forli = a, i >= ], i-., 
Forlj = b,j >= 1, j--,muli, j] = 0]]; 
Forfi = nmax, i >= 1, i-., 
templ = Floor[divi[[1]}1*(Re[z] - shrange[[1]}{[1]D/(shrange{[21][[1]] -shrange{{1]}{[11D1 + 1; 
temp2 = Floor[divi[[2]]*(Im{z] - shrange{[1]}{[21D/(shrangel{2]][[21] - 
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shrange[[IH]][[2]])] + 1; muftempl, temp2]++; z = f{z];}; 
For[i = a, i >= 1, i--,For[j = b,j >= 1, j--,mumax = Max[mumax, muli, j]]]]; 
mul = Table[GrayLevel[l - N[mulj, i]]/mumax], {i, a}, {j, b}]; 
Show[Graphics[RasterArray[mul]]] ] 
IFSshow[0 + 工 0, {{-0.1, -0.1}, {1.1, 1.1}}, {150, 150}, 100000]; 
7. 实验 7 的 程序 
pl= U3; aaa = U2 +I1/N;fi[lz ]:= (z+ 2*aaa)/3; 
p2 = 1/3; bbb = 0// N; f2[z_] := (2 + 2*bbb)/3; 
p3 = 1/3; eee = 1// N; f3[z_] := (z + 2*cee)/3; 
f{z_] := Block[{tmp}, tmp = Random[]; 
Which[tmp < pl, fi[z], tmp < pl + p2, f2[z], True, {3[z]]];Array[mu, {150, 150}]; 
IFSshow[z0_, shrange_List, divi_List, nmax_] := 
Block[{i, j, z = z0, a = divi[[1]], b = divi[[2]], templ, temp2, mumax = 0}, 
For[i = a, i >= 1, i--, | 
For[j = b,j >= 1, j--,muli, j] = 0]]; 
For[i = nmax, i >= 1, i--, 
templ = Floor[divi[[1]]*(Re[z] - shrange[[1]][[1]]))/(shrange[[2]][[1]] - 
shrange[[1]][[1]])] + 1; 
temp2 = Floor[divi[[2]]*(Im[z] - shrange[[1]][[2]1)/(shrange[[2]][[2]] - 
shrange[[1]][[2]])] + 1; mu[templ, temp2]++; z = f{2];}]; 
Forli = a, i >= 1, i--, 
For[j = b, j >= 1, j--, mumax = Max[mumax, mulfi, j]]]]; 
mul = Table[GrayLevel[1 - NImu[j,i]/mumax], {i, a}, {j, b}]; 
Show[Graphics[RasterArray[mull]]] ] 
IFSshow[0 + 10, {{-0.1, -0.1}, {1.1, 1.1}}, {150, 150}, 100000]; 
8. 实验 8 的 程序 . 
ComplexTrajectory[z_, ¢_, init_:0, n_] := Show[Graphics[{PointSize[.025], 
Point[{Re[z],Im[z]}], Thickness[.0001],Line[Map[{Re[#],Lm[#]} &, 
NestList[#^2 + ¢ &,Nest[#^2+c &,If[Precision[z] < Infinity, z, N[z]], init], n]]])]， 
PlotRange->All, Axes->Automatic] 
JuliaIIM[c_, n_] := Show[Graphics[ 
Map[{Point[{Re[#], Hm[#]}], Point[-{Re[#], Im[#]}]} &, 
Drop[NestList[If[Random[Integer] == 1, 1, -1] Sqrt[# - ec] &,0.2, n + 50], 50]]]] 
chop[z_] := (Round[600 Re[z]] + I Round[600 Im[z]]) / 600. 
Attributes[chop] = Listable; 
JuliaIIMHistograml[c_, n_] := Show[Graphics3D[Map[ 
Line[{{Re[#], Im[#], 1}, {Re[#], Im[#], Count[temp, #]}}] &, 
Union[temp = chop@Drop[NestList[ 
HIRandom[Integer] == 1,1,-1] Sgqrt[#-c] &, .2, n+40], 40]]]], 
Boxed->False, BoxRatios->{1,1,1/3}, PlotRange->Al]; 


300 


JuliaIIMHistogram[{-0.1 + 0.8 1, 1000]; 
JuliaITMf{r_, n_] := Show[Graphics[ 
Map[{Point[{{Re[#], Im[#]}], Point[{Rel#], -Lm[#}}], 
Point[{{1-Re{#], Im[#]}], Point[{1-Re[#], -Im[#]}]} &, 
Drop[NestList[.$ + ITRandom[JInteger]==1, 1, -1] * 
Sqrt[.25 - #/r] &, 0.2,n + $0], 50]]], 
Axes->None, Ticks->{{0,1}, Automatic}] 
JuliaIIMf[3, S00]; 
Orbitcheck[z_,c_ ,iters ]:=(s=z;i=0; 
While[++i <= iters && Absfs = s^2 +ec] < 2]; 
IfIi == iterst+1, {Refz], Im[z]}*#& /@ {1,-1}, {}]) 
(* One of x0, y0 should be 0 *) 
FilledJuliaSet[c_, meshx_Integer, meshy_Integer, x0_, x1 , y0_, y1_ ,iters_:20] := 
Show[Graphics[{PointSize[.002], Point /@ Flatten[ 
Outer[orbitcheck[#1 + I #2, N[c], iters]&, 

Range[x0, xl1, (x1-x0)/meshx], Range[y0, yl, (yl1-y0)/meshy]], 2]}], 
AspectRatio->(ymax=Max[Abs[{y0,y1}]1)/(xmax=Max[Abs[{x0,x1}]]), 
PlotRange->{{-xmax,xmax}, {-ymax,ymax}}]; 

C= -.12256117 + .74486177 I; (* rabbit *) 
FilledJuliaSet[¢, 230, 19S, -1.31, .52, 0, 1.11, 30]; 
C=.32 + .0431;(* 11-cycle dragon *) FilledJuliaSet[c, 160, 210, -.85, .80, 0, 1.12, 80]; 
c=-0.390541 - 0.586788*I (* Siegel disk *); 
FilledJuliaSet[c, 230, 16S, -.77, 1.42, 0, 1.03, 30]; 
C= .35+ .05 I;FilledJuliaSet[c, 230, 165, -.77, 1.42, 0, 1.03, 20]; 
c= 0.11031 - 0.67037 I;FilledJuliaSet[c, 230, 165, -.77, 1.42, 0, 1.03, 20]; 
c= -0.15652 - 1.0322sI1;FilledJuliaSetlc, 230, 16S, -.87, 1.2, 0, 1.23, 20]; 
9. 实验 9 的 程序 
MatrixNorm[A_] := Max[Sqrt[Eigenvalues[Transpose[A].A]]]; 
{Al, A2, A3, A4} = {{{.85, .04}, {-.04, .8S}]},{{-.1S,， .28}, {.26, .24}}, 
{{0.2, -.26}, { .23, .22}},{{0, 0 }, { 0,.16}} }; 

Map[MatrixNorm, {Al, A2, A3, A4}]; | 
{fixed1, fixed2, fixed3, fixed4} = {Inverse[A1 - IdentityMatrix[2]] . {0, -1.6 }, 

Inverse[A2 - IdentityMatrix[2]] . {0,， -.44}, 

Inverse[A3 - IdentityMatrix[2]] . {0, -1.6 }, 

Inverse[A4 - IdentityMatrix{2]] . {0, 0 } }; 
BarnsleyFern[n_] := Show[Graphics[Map[Point, NestList[ 

Which[ (r = Random[Integer, {1,100}) <= 85, Al.#+ {0,1.6}, 
r<=92, A2.#+ {0, .44},r <= 99， A3.#+ {0,1.6},r == 100, A4.#]&, 
{0,0}, n]], PlotRange->All]] 

BarnsleyFern[28000] ; 
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实验 二 十 二 冰 数 迭代 与 混沌 


在 前 面 的 实验 中 我 们 看 到 ， 利 用 一 些 简单 的 迭代 格式 可 以 求解 方程 (组 )， 同 时 还 可 以 产 
生 非 常 复杂 而 漂亮 的 分 形 图 形 。 在 本 实验 中 我 们 将 看 到 , 和 迭代 还 可 以 产生 类 似 于 随机 行为 的 一 
种 非常 古怪 的 现象 ， 我 们 把 这 种 现象 称 之 为 混沌 。 

实际 上 ， 混 沌 与 分 形 是 密 不 可 分 的 。 混 沌 中 包含 着 分 形 ， 分 形 中 包含 着 混沌 。 它 们 是 一 对 
挛 生 兄弟 。 本 实验 我 们 将 从 简单 的 函数 迭代 出 发 ， 使 读者 认识 混沌 现象 及 其 所 蕴含 的 规律 性 。 


33.1 基本 理论 


在 系统 探索 混沌 现象 之 前 ， 我 们 给 出 一 些 基本 概念 。 

设 Fo 是 一 个 定义 在 实数 域 上 的 实 值 函数 ， 如 果 存 在 & 使 得 f(w)=u， 则 称 zx 为 f(x) 的 不 动 
点 。 我 们 用 zx 一 & 表示 这 事件 。 如 果 所 有 附近 的 点 在 迭代 过 程 中 都 趋向 于 某 个 不 动 点 ， 则 该 不 
动 点 成 为 吸引 点 ,有 了 时 也 称 该 不 动 点 是 稳定 的 ,如 果 所 有 附近 的 点 在 迭代 过 程 中 都 远离 它 而 去 ， 
则 该 不 动 点 成 为 排斥 点 ， 有 了 时 也 称 该 不 动 点 是 不 稳定 的 。 例 如 ,0 与 1 是 f(x)=x 的 不 动 点 。 
0 是 吸引 点 ， 因 为 从 0<%<1 的 初 值 出 发 ， 连 代 序列 都 收敛 到 0。 而 1 是 一 个 排斥 点 ， 因 为 从 
0< x <1 的 初 值 出 发 ， 迭 代 序 列 收 敛 到 0， 而 从 >1 的 初 值 出 发 ， 选 代 序 列 发 散 到 无 穷 。 

如 果 f(w)=w,f (wy)=u3, f(t)=W 有 uj #0 j=2…,k， 则 WW,ws,…, 形成 一 个 
循环 。 用 ww 一 到 二 … 一 二 ww 记 这 个 事实 。u 成 为 一 个 上 周期 点 ，w,w,,…,ui 成 为 一 个 周 
期 轨道 。 显然 ,不 动 点 就 是 周期 为 1 的 周期 点 。 类 似 于 不 动 点 ， 如 果 所 有 附近 的 点 在 迭代 过 程 
中 都 远离 它 而 去 ， 则 该 周期 点 成 为 排斥 点 。 如 果 点 & 最 终 落 在 某 个 循环 之 中 ， 则 称 它 是 一 个 预 
周期 点 。 例 如 ，1 是 f(x)=x -1 的 预 周 期 点 。 

33.2 ” 浮 数 的 迭代 
给 定 某 个 初 值 ， 反 复 作 用 于 同一 个 函数 的 过 程 称 为 和 迭代。 函数 f(x) 的 迭代 过 程 如 下 ; 
WA=f Rm) a) = (x ), 
它 生成 了 一 个 序列 {x,}， 称 为 迭代 序列 。 

许多 由 递 推 关系 给 出 的 数列 ， 都 是 迭代 序列 。 例 如 数列 

(n=1,2,.…) 


1 
1+Xx 


n-—l 


Xo=1,x, =1+ 


是 由 函数 7 (xz)=1+ 一 一 = 2+* 到 初 值 为 1 所 得 的 迁 代 序列 。 


1l+x 
定理 ” 设 函 数 f(x) 满足; 
(1) 对 任意 xe (a,b),f (x)e (a,b):; 
(2) f(x) 在 (a,b) 内 可 导 ， 且 存在 常数 工 使 得 f(x) <L<l。 
则 当初 值 xz e (4a,b) 时 ， 由 f(x) 生成 的 迭代 序列 收敛 。 
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在 迭代 函数 (x) 连续 的 条 件 下 ， 如 果 和 迭代 序列 收 你， 则 它 一 定 收敛 于 方程 = 放 Co 的 根 。 
该 方程 的 根 也 称 为 函数 f(x) 的 不 动 点 。 

设 志 为 PCg) 的 不 动 点 ，f (x) 在 x 的 附近 连续 ， 若 1 了 CD KK1， 则 称 不 动 点 六 是 稳定 的 ; 
车 f(x*)=0， 则 称 不 动 点 x 是 超 稳定 的 。 在 超 稳定 点 必 附近 , 迁 代 过 程 志 ,= 六 (zx ) 收 伊 到 达 
的 速度 是 非常 快 的 。 

对 函数 的 迭代 过 程 ， 我 们 可 以 从 几何 图 形 来 直观 地 显示 它 。 在 xOy 平面 上 ， 先 作出 函数 
y= 夏 (9) 与 ?= 的 图 像 ， 对 初 值 为 ， 在 曲线 = 让 (z) 上 可 确定 一 点 已 ， 它 以 为 为 横 坐标 ， 过 
只 引 平 行 x 轴 的 直线 ， 设 该 直线 与 ?=x 交 于 点 Q ， 再 过 @ 作 平 行 》 轴 的 直线 ， 它 与 曲线 
y= 了 (x) 的 交点 记 为 ， 重 复 上 面 的 过 程 ， 就 在 曲线 y= (xz) 上 得 到 点 列 忆 ,已 …, 如 图 33-1 
不 难 知 道 ， 这 些 点 的 横 坐 标 构成 的 序列 元 ,x,%…,,… 就 是 园 代 序列 。 若 迁 代 序列 收 化 ， 则 
点 列 P,P…, 趋 向 于 y= f(x) 与 y=x 的 交点 P* ， 因 此 迄 代 序列 是 否 收敛 ， 可 以 在 图 上 观察 出 
来 。 这 种 图 因 其 形状 像 蜘蛛 网 而 被 称 为 迭代 的 “ 贱 蛛 网 ”图 。 


图 33-1 迭代 的 “ 蛟 蛛 网 ” 
全 85 


实验 1 取 初 值 为 5.5， 夯 出 分 式 线性 函数 了 (x) = 二 = 一 一 的 壬 代 图 形 。 


25x—85 


解 : 分 式 线性 函数 f (x)= 一 一 一 的 迭代 序列 为 : 6.1764, 7.5641，9.8543，12.5528，14.7125， 


15.9668, 16.5642, 16.8218, i a 16.9711, 16.9884, 16.9953, 16.9981, 16.9992, 16.9997， 
16.9998，16.9999，17，17，17。 


图 33-2 显示 了 分 式 线性 函数 f(x)= 
该 迭代 是 收敛 的 ， 且 收 伍 到 不 动 点 17。 
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取 初 值 为 5.5 的 迭代 过 程 ， 从 图 中 可 以 看 出 


25x— 


图 33-2 f(x ) 的 迭代 图 形 
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练习 1 通过 观察 图 33-2 或 通过 改变 初 信 重 画 了 (x)= < 3 的 蜂 蛛 网 图 ， 你 能 否 说 明 为 什 


么 该 函数 迭代 的 收敛 速度 与 初 值 的 选取 关系 不 大 ? 对 于 其 它 收 信 的 分 式 线性 函数 的 迁 代 ， 是 否 
有 类 似 的 结论 ? 

迭代 序列 若 不 收敛 ， 它 可 能 出 现 两 种 情况 ; 

(1) 选 代 次 数 充分 大 时 , 迁 代 序列 出 现 周期 性 重复 即 存 在 自然 数 N,，k>0, 使 = x， 
这 样 迭 代 序列 便 成 为 

Xo M's XY ，XN+19，XNA+E_19 AN，XN+19 9XNHE 1 
此 时 ， xwzxwso xuwrea 称 为 周期 为 上 的 循环 ， 而 初始 点 为 为 预 周期 点 。 
对 卫 数 了 )=-2+sin1.$x 取 初 值 x=0 的 迭代 ， 画 出 其 蜘蛛 网 图 。 
由 图 33-3 可 判断 出 该 迭代 得 到 了 一 个 周期 为 2 的 循环 ，0 是 该 循环 的 一 个 预 周期 点 。 
(2) 序列 没有 规律 、 杂 乱 无 章 ， 称 之 为 混沌 。 
| 画 出 函数 F(z)= -2+sin5x 取 初 值 -0.7 的 迭代 图 。 

由 图 33-4 可 看 出 该 迭代 产生 了 混沌 。 


图 33-3， 和 迭代 出 现 循环 图 33-4 选 代 产生 了 混沌 


混沌 具有 两 个 特性 ; 非 随机 性 和 对 初始 值 的 敏感 性 。 若 初始 值 产 生 微小 的 误差 ， 则 该 误 
差 随和 欠 代 次 数 呈 指数 型 增加 ,因此 尽管 欠 代 序列 由 初 值 和 和 迭代 函数 完全 确定 , 但 随和 迭代 次 数 的 
增加 ， 它 与 随机 数列 并 无 多 大 差别 ， 故 混沌 又 称 作 确 定性 的 随机 运动 。 
练习 2 通过 观察 图 形 进一步 了 解 函数 f(x) =a+sinbx 的 迭代 (多 取 几 组 参数 及 初 值 )。 
练习 3 ”下列 函 数 的 迭代 是 否 会 产生 混沌 ? 
2x, 0<x< 了 


(1) f(x)= 


(2 f(x)= B+ | 


下 面 我 们 将 研究 形 如 让 (z= ax(1- 交 的 二 次 函数 的 迭代 
Ka=f (4)=ax (1 一 不 ), =01… (33-1) 
这 里 ，ae [0,4] 是 一 个 参数 。 
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画 出 函数 /(z)= ax(1- 妆 的 迭代 图 。 对 几 组 不 同 的 参数 值 a ， 观 察 迭 代 序 列 是 否 收 
敛 ， 并 比较 结果 。 

解 ， 取 x =0.2， 下 面 取 不 同 的 a 值 进行 观察 : 

(1) a=0.7， 如 图 36-5 迭代 序列 单调 减 趋 于 0。 


0.008 
0.006 1 
0.8 
0.004 
0.6 
0.4 
0.002 
0.2 
5 10 15 20 25 30 0.2 : 


图 33-5 a=0.7， ee 
(2) a=2.9， 如 图 33-6 和 迭代 序列 上 下 震荡 ， 趋 向 于 不 动 点 (a-1)/a 。 


1 


0.6@ 0. 8 
0.66 0.6 
0.64 0.4 
0.G2 
0.2 
10 5 20 5 汶 


0.2 0.4 0.6 0.8 


图 33-6 a=2.9，f(x)=ax(1-x) 的 迭代 图 


(3) a=3.4， 如 图 33-7 迭代 序列 经 过 一 段 时 间 的 调整 ， 开 始 在 两 个 近似 为 0.42 和 0.82 的 值 之 
间 上 下 振荡 。 这 类 振荡 为 2 一 循环 ， 一 旦 进入 这 种 模式 ， 就 容易 预测 a 的 值 。 


1 
0.8 

0.8 
0.6 

0.6 
0.4 0.4 
0.2 0.2 


0 120 25 3 0.4 0.6 0.8 1 
用 33-7 ”a=3.4， f(x)=ax(1 一 x) 的 迭代 图 
(4) a=3.55 ， 如 图 33-8 迭代 序列 出 现 了 周期 为 4 的 振荡 ， 即 4 一 循环 。 


1 


0.8 0.8 
0.6 0.6 
0.4 0.4 
0.2 0.2 
10 15 2 25 3 0.2 0.4 0.6 0.8 


图 33-8 a=3.55，f(x)=ax(1-x) 的 迭代 图 
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-一 


注意 , 当 参 数 a 变化 时 ， 从 收敛 到 唯一 不 动 点 (1 一 循环 ) 到 2 一 循环 , 再 从 2 一 循环 到 4 一 
循环 ， 这 样 的 分 裂 行为 称 为 分 又。 
(5) a=3.7 ， 如 图 33-9 迭代 序列 不 再 呈现 出 稳定 的 周期 性 ， 也 不 具有 任何 可 预测 的 模式 。 


0.8 
0.6 


re oo 
Le 


0.4 0.4 
0.2 0.2 


5 10 15 20 25 30 0.2 0.4 0.6 0.8 1 


图 33-9 a=3.7 ，F(z)=axr(t-xz) 的 迭代 图 


从 蜘蛛 网 图 看 到 ， 和 迭代 数列 在 区 间 (0， 1) 内 跳 来 跳 去 , 而 且 表 现 出 对 初始 条 件 非 常 敏 感 的 依 
赖 性 。 
练习 4 取 参 数 a=0.8， 并 使 用 不 同 的 初 值 % 。 你 能 找 出 一 个 吸引 的 不 动 点 吗 ? 一 个 排斥 的 
不 动 点 吗 ? 哪些 初 值 收敛 到 吸引 的 不 动 点 ? 哪些 初 值 使 序列 发 散 到 无 穷 ? 取 不 同 的 初 值 
a=1,a=1.6,a =2,a=2.5 问答 同样 的 问题 。 
练习 5 找 出 一 个 a 值 , 它 对 应 的 迭代 具有 2 周期 点 。 这 种 性 质 依赖 于 初 值 吗 ? 你 能 找到 多 个 
a 值 具 有 这 种 性 质 吗 ? 
练习 6 你 能 对 任意 的 找到 一 个 & 值 ， 使 得 它 对 应 的 迭代 具有 大 周期 点 吗 ? 哪些 大 值 能 给 出 
周期 点 ? 在 每 种 情况 下 ， 结 果 是 否 依赖 于 初 值 的 选取 ? 
(请 对 3.4<a<3.6 和 3.6<a<4 的 值 进行 验证 )。 
练习 7 如 果 某 个 a 值 能 给 出 周期 点 , 它 是 否 一 定 是 吸引 的 周期 点 ?你 能 否 找到 排斥 的 周期 点 ? 
练习 8 根据 前 面 的 一 系列 练习 ， 试 着 从 理论 上 分 析 : f(x) 的 不 动 点 是 什么 ? 对 哪些 a 值 迭 
代 收 敛 到 每 个 不 动 点 ? 哪些 初 值 收敛 到 不 动 点 ? 哪些 初 值 导 致 发 散 ? 对 周期 点 作 类 似 的 分 析 。 

33.3 Feigenbaum 

本 节 我 们 对 不 同 的 a 系统 地 观察 迭代 〈33-1) 的 行为 。 

将 区 间 (0,4] 以 某 个 步 长 Aa (如 Aa = 0.04) 离散 化 。 对 每 个 离散 的 4 值 作 友 代 〈33-1)， 忽 
略 前 50 个 迭代 值 厂 ,2，…xoo， 而 把 点 (ax ),(a, x ),…,(a, Xoo ) 显示 在 坐标 平面 上 。 最 后 形成 


的 图 形 称 为 Feigenbaum 图 。 
实验 5 画 出 Feigenbaum 图 ， 如 图 33-10 所 示 。 


1 上 


0.8 上 


图 33-10 “Feigenbaum 图 
306 


观察 Feigenbaum 图 : 在 它 的 左 部 有 一 条 曲线 ， 这 代表 和 迭代 具有 唯一 的 吸引 不 动 点 。 
练习 9 从 某 一 点 a 开始 , 该 条 曲线 分 成 两 条 曲线 ,这 说 明了 选 代 的 什么 性 质 ? 迁 代 的 点 列 是 
如 何 运动 的 ? 
练习 10 再 在 下 一 个 分 支点 a,， 曲 线 分 成 了 几 个 分 支 ? 这 说 明和 迭代 的 什么 性 质 ? 相应 的 迭代 
点 列 是 如 何 运 动 的 ? | 
练习 11 上 述 分 支 过 程 是 否 一 直 进 行 下 去 ? 是 否 存 在 一 个 极限 的 分 支点 4a, ? 在 极限 分 支点 
之 后 ，Feigenbaum 图 是 否 显 得 很 混乱 ? 


练习 12 估计 出 a,n=1,2,3,4,5 等 的 值 。 再 计算 比值 6。= {2 全! n=2,3,4 等， 它们 是 否 


| 

比较 接近 ? 由 此 猜测 数列 5 , 是 否 会 收敛 ? 
练习 13 在 Feigenbaum 图 的 右 部 , 你 应 当 能 看 到 一 个 有 三 条 曲线 穿 过 的 空白 带 , 它 是 一 个 “ 周 
期 为 3 的 窗口 ”。 你 能 找到 其 它 窗口 吗 ? 它们 的 周期 是 什么 ? 窗口 里 有 什么 图 案 ? 这 些 窗口 跟 
练习 6 中 的 大 周期 轨道 有 什么 关系 ? 

为 了 获得 更 细致 的 图 形 ， 可 将 a 的 步 长 再 缩小 。 

Feigenbaum 图 对 于 分 析 函 数 f(x) =ax(1 一 x) 的 迭代 行为 非常 有 用 ， 从 图 33-10 中 可 看 出 ; 
较 左 部 分 是 一 些 清晰 的 曲线 段 ,这 说 明 对 该 范围 内 的 任 一 a 值 而 言 , 当 和 迭代 进行 到 100 次 以 后 ， 
迁 代 所 得 的 交 只 取 有 限 的 几 个 值 ， 表 明和 迭代 序列 构成 了 一 个 循环 ， 其 周期 等 于 竖 直 的 直线 与 
图 形 交点 的 个 数 ; 从 左 向 右 ， 每 一 段 曲线 到 一 定 的 位 置 同时 一 分 为 二 ， 表 明和 迭 代 序 列 的 循环 周 
期 在 这 些 位 置 处 增长 了 一 倍 ， 因 而 曲线 的 这 种 分 又 ， 被 称 为 倍 周期 分 支 , 有 时 也 叫做 Pith-Fork 
分 支 ; 随 着 a 的 增长 ， 出 现 分 支 位 置 的 间隔 越 来 越 小 ， 大 约 在 a=3.57 左右 ， 分 支 数 已 看 不 清 
楚 , 这 时 便 认 为 出 现 了 混沌 , 由 此 向 右 的 区 域 被 称 为 混沌 区 域 , 但 是 并 非 对 所 有 大 于 3.57 的 a， 
函数 和 迭代 都 出 现 混沌 。 从 图 33-10 中 可 看 出 ， 混 沌 区 域 中 有 一 些 空白 带 ， 这 些 空白 带 由 若干 段 
曲线 构成 ， 说 明 对 于 相应 的 e， 和 迭代 出 现 周期 循环 ， 因 此 这 些 空白 带 称 为 混沌 区 域 中 的 周期 窗 
口 。 例 如 当 @ =3.84 时 ， 和 迭代 序列 出 现 了 周期 为 3 的 循环 ， 因 此 对 应 于 a 在 3.84 附近 的 区 域 
就 是 一 个 周期 为 3 的 循环 窗口 。 

综 上 所 述 ， 从 Feigenbaum 图 可 以 看 到 : 

当 ae (0,1) ，0 是 稳定 的 不 动 点 ; : 

当 ae (3) ，0 是 排斥 点 ，(a -1)/a 是 稳定 的 不 动 点 ; 

当 ae (3,3.449489743) ， 迭 代 变 为 2- 周 期 轨道 ，3 是 第 一 个 分 叉 点 ; 

当 ae (3.449489743,3.5669945577391)， 和 迭代 变 为 4- 周 期 轨道 ，3.449489743 是 第 二 个 分 又 


当 ae (3.5669945577391,4) ， 和 迭代 进入 混沌 区 域 。 


33.4 混沌 的 特性 


从 极限 分 支点 之 后 ，Feigenbaum 图 显得 很 杂乱 ， 似 乎 没有 任何 规律 。 实 际 上 ， 对 任何 初 
始 值 做 迭代 都 会 得 到 同样 的 结果 ， 这 就 是 所 谓 的 混沌 现象 。 迄今 为 止 , 混沌 并 没有 确切 的 数学 
定义 。 但 它 具 有 一 些 基 本 特性 ， 如 对 初 值 的 敏感 性 以 及 某 种 无 序 性 ， 由 此 产生 类 似 于 随机 的 现 
象 。 下面 ， 以 a= 4 为 例 来 说 明和 迭代 〈33-1) 具有 这 些 特征 。 
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33.4.1 对 初 值 的 敏感 性 


所 谓 一 个 迭代 对 初 值 是 敏感 的 意思 是 , 无 论 两 个 初 值 如 何 接近 , 在 迭代 过 程 它们 将 渐渐 分 

” 开 。 这 是 任何 一 个 混沌 系统 都 具有 的 特性 之 一 ， 这 种 特性 使 得 混沌 系统 会 产生 似乎 是 随机 的 、 

没有 规律 的 现象 。 下 面 我 们 考察 迭代 

t=4% (1—%), =01… (33-2) 

是 否 具有 这 种 性 质 。 
” 任 取 两 个 初 值 使 得 它们 之 间 的 差 的 绝对 值 不 超过 0.1， 在 和 欠 代 过 程 中 它们 逐渐 分 开 

吗 ? 如 果 两 个 初 值 之 间 的 差 的 绝对 值 不 超过 0.01,0.001 ， 结 果 会 如 何 ? 由 此 得 出 ， 函 数 

了 (x) = 4x(1 一 x) 的 迭代 对 初 值 是 否 敏 感 ? 

解 : 在 同一 坐标 面 上 作出 函数 的 不 同 初 值 的 迭代 图 如 图 33-11。 


图 33-11 函数 f(x)=4x(1 一 x) 的 迭代 对 初 值 的 敏感 性 
(a) 1x02 一 贡 瞩 0.05 的 迭代 图 ，@) |x? 一 区 FF 0.005 的 选 代 图 ， 
(c) 1xi2 一 z 上 0.0005 的 选 代 图 ，(d) 1x2) -xz F 0.00005 的 选 代 图 。 


从 图 33-11 可 看 出 ， 函 数 f(x) = 4x(1 一 x) 的 迭代 对 初 值 是 敏感 的 。 
33.4.2 ”混沌 不 是 随机 的 


从 上 面 的 实验 可 以 看 到 ， 一 个 简单 的 、 确 定 的 二 次 和 迭代 可 以 产生 非常 复杂 的 、 看 似 随 机 
的 行为 。 但 是 ， 混 沌 不 等 于 随机 。 实 际 上 ， 在 混沌 区 域 之 内 ， 蕴 涵 这 许多 有 序 的 规律 。 这 正 验 
证 了 哲学 上 的 名 言 ， 有 序 中 包含 了 无 序 ， 无 序 中 包含 着 有 序 。 


i 从 不 同 的 初 值 太 e (0,1) 出 发 作 的 选 代 33-2)。 统 计 迁 代 点 列 中 分 别 落 于 区 间 (0, 
以 及 区 间 (>,D) 中 的 点 的 个 数 ， 


解 : 作出 迭代 点 列 的 直方 图 如 图 33-12。 
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图 33-12 不 同 的 初 值 下 迭代 点 列 的 统计 直方 图 
(WH=04; (Ob)R=0.5; (X=0.8. 


练习 14 从 实验 7 得 到 的 结果 是 随机 吗 ? 进一步 ， 将 (0,D) 区 间 分 成 任意 等 份 ， 统 计 和 迭代 点 列 
中 分 别 落 于 不 同 的 等 份 区 间 的 点 的 个 数 。 结论 又 如 何 ? 在 区 间 [0,1] 的 各 种 划分 中 , 是 否 有 一 些 
区 间 即 使 在 大 量 的 迭代 之 后 也 不 包含 任何 迭代 点 ? 

另 一 个 说 明 混 沌 不 是 随机 的 事实 是 ， 混 沌 区 域 有 许多 有 序 的 窗口 。 将 这 些 窗口 放大 可 以 
看 到 令 人 振奋 的 自 相 似 现象 ， 同 时 还 有 许多 周期 轨道 。 
练习 15 实验 7 确定 迭代 (33-2) 的 一 个 2 周期 点 。 该 周期 点 是 吸引 点 还 是 排斥 点 ? 找 出 该 
周期 点 的 一 个 有 理 逼 近 (误差 尽量 小 ) 做 初 值 ， 利 用 〈33-2) 做 迭代 ， 迭 代 结 果 是 否 像 一 个 周 
期 为 2 的 循环 轨道 ? 

33.5 “其它 函 数 的 迭代 

和 函数 f(x) = 4x(L- 轨 一 样 有 着 混沌 行为 的 函数 还 很 多 ， 其 中 较 简 单 的 有 “帐篷 函数 ”和 

“锯齿 函数 ”。“ 帐 篷 函 数 ”T(x) 定 义 为 
2x 如 果 0<x< 


ro)- 
2(1—x) 如 果 =< x<1 


“锯齿 函数 ”S(x) 定 义 为 
S(x)= 
2x—1 如 果 了 <x<1 


容易 验证 ， 帐 篷 函 数 和 饮 齿 函数 有 下 列 关 系 : 
T(T(x))=T(S (x)), 0<x<! (33-3) 

练习 16 锯齿 函数 对 初始 条 件 是 否 敏感 ? 找 出 锯齿 函数 的 所 有 周期 点 。 
(提示 ; 把 数值 表示 成 二 进 制 形式 ) 
练习 17 帐篷 函数 对 初始 条 件 是 否 敏感 ? 找 出 帐篷 函数 的 的 所 有 周期 点 。 
(提示 : 利用 关系 式 (33-3)) 

寻找 帐篷 函数 和 锯齿 函数 的 周期 点 相对 比较 容易 。 但 要 求 得 f(x) = 4x(1 一 x) 的 周期 点 就 要 
困难 许多 。 如果 有 一 种 方法 能 够 在 较 复 杂 的 函数 与 较 简 单 的 函数 之 间 进 行 变换 ， 则 我 们 可 以 借 
此 找 出 那些 难以 捉摸 的 周期 点 。 实 际 上 ， 如 果 令 

h(x)= sin’ (7) 
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则 


f* (h(x))=4(7* (#) 
对 任意 正 整 数 磊 成立。 
练习 18 ”你 能 否 利用 上 述 关系 式 求 出 f(x) 的 4 个 周期 点 ? 该 周 期 点 是 吸引 的 还 是 排斥 的 ? 

除了 函数 f(x) = 4x(1 一 x) 外 ,还 可 以 观察 其 它 函 数 的 迭代 。 下 面 是 其 中 的 某 几 个 函数 。 有 
兴趣 的 读者 可 以 对 它们 的 迭代 行为 进行 类 似 的 探讨 ， 并 与 f(x) 的 和 迭代 行为 作 比较 。 

1. f(x)=a-(x-Va); 2. f(x)=x -a; 

3. f (x)=asin(x); 4. f(x)=x -a; 

5. f(x)=Asin(nx). | 

下 面 让 我 们 来 听 一 听 混 沌 的 一 个 吸引 子 ， 一 个 2 循环 ， 一 个 4 循环， 一 个 4 循环 的 声音 是 
什么 样子 的 。 
: 选取 为 的 一 个 初 值 (如 为 =0.1), 利用 (33-2) 作 和 迭代 得 到 序列 十 =0,2…, 根 据 为 
的 大 小 确定 相应 的 音调 的 高 低 。 试 编程 按 顺 序 演奏 迭代 序列 。 


33.6 ”二 维 迭 代 与 分 形 
我 们 称 由 两 个 二 元 函数 f(x,y) 与 g(x,y) 取 初 值 (x,,y, ) 构 成 的 迭代 
由 =f (5,,y,) 


ntl = 8 (Xx,,y,) 


为 一 个 二 维 迭 代 。 

二 维 迭代 产生 的 序列 也 存在 收敛 性 问题 ， 但 一 般 来 说 要 比 一 元 函数 产生 的 迭代 序列 的 收 
敛 性 复杂 得 多 。 我 们 通常 借助 于 图 形 进行 观察 ， 这 种 图 形 由 二 维 点 列 (x,, y, ) 构 成， 亦 即 二 维 
散 点 图 。 


由 函数 了 (x,y)=y 一 sin x 与 g(x,y)=3.1-x 取 初 值 为 (1.2,0) 构成 的 迭代 ， 画 出 其 迭代 


图 。 
解 : 画 出 二 维 迭代 的 散 点 图 如 图 33-13。 

虽然 从 图 33-13 中 不 能 断定 该 序列 是 否 收敛 , 但 我 们 却 发 现 这 个 图 形 本 身 非常 有 特点 , 它 
有 四 个 形状 完全 相似 的 小 图 形 构成 ， 这 些小 图 形 之 间 经 过 旋转 、 折 释 后 形成 。 


图 33-13 “二 维 迭 代 的 散 点 图 
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nm 由 函数 f(x,y)= ?一 sgnxVlbx— c | 与 8(%,y)=a- x 构 成 的 二 维 迭 代称 为 Martin 迭 
代 。 现 观察 其 当 a= 45,5=2,c=-300 时 ， 取 初 值 为 (0.0) 所 得 到 的 二 维 迭 代 散 点 图 。 
解 : 画 出 Martin 迭代 的 散 点 图 如 图 33-14。 


图 33-14 ”Martin 迭代 的 二 维 散 点 图 
(a) 迭代 次 数 m = 5000 ; _(b) 连 代 次 数 m = 26000 。 


图 33-14 是 著名 的 Martin 图 形 的 初期 状态 ， 随 着 迭代 次 数 的 提高 ， 图 形 将 会 发 生 奇妙 的 
变化 。 
练习 19 ”对 实验 10， 试 着 提高 迭代 次 数 至 26000，28000，1000000，5000000 等 观察 图 形 有 
什么 变化 。 
练习 20 ” 取 参 数 a,b,c 为 其 它 的 值 会 得 到 什么 图 形 ? 参考 表 33-1。 


表 33-1 Martin 迭代 参数 参考 表 


附 ”Mathematica 程序 
1. 实验 1 的 程序 
Clear[f, x, x0, ftL];fTx ]:= (25 x - 85)/(x + 3); 
x0=5.5; n= 20; tl1 = {}; 
For[i = 1, i <= n, i++, x00 = NIf[x0]]; x0 = x00;tl1 = Append[t1, {i, x0}];] 
‘TableForml[tl1, TableHeadings -> {None, {i, "f(x)''}}] 
g1 = Plot[f{x], {x, -10,20}, PlotStyle -> RGBColor[l 0, 0], DisplayFunction -> Identity]; 
g2 = Plot[x, {x, -10, 20}, PlotStyle -> RGBColor[0, 1, 0], DisplayFunction -> Identity]; 
r={);x0=5.5;r0 = Graphics[{RGBColor[0, 0, 1], Line[{{x0, 0}, {x0, Sl 
For[i = 1, i <= 100, i++, 
r=Append[in Graphics[{{RGBColor[0, 0, 1], Line[{{x0, x0}, {x0, f[x0]}, {f{x0], f[x0]}}]}]]; 
x0 = f[x0];]; 
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Showfgl g2, r, r0, PlotRange -> {-10, 20},playFunction -> $DisplayFunction]; 
2. 实验 2 的 程序 


flx_] := -2 + Sin[1.S x]; 
g1 = Plot[f[x], {x, -4, 0}, PlotStyle -> RGBColor[]1, 0, 0], DisplayFunction -> Identity]; 
g2 = Plot[x, {x, -4, 0}, PlotStyle -> RGBColor[0, 1, 0], DisplayFunction -> Identity]; 
r={);x0= 0;r0 = Graphics[{RGBColor[0, 0, 1], Line{{{x0, 0}, {x0, x0}}]}]; 
Forli = 1, i <= 100, i++，r = Append[r, Graphics[{RGBColor{0, 0, 1],Line[{{x0, x0}, {x0, f[x0]}, 
{{[x0], {Tx01}}]}];x0 = {Tx0];]; 
Show[gl,g2,r,r0,PlotRange ->{-4, 0},DisplayFunction -> $DisplayFunction]; 
3. 实验 3 的 程序 
ffx_] := -2 + Sin[S$ x]; 
g1 = Plot[f{[x], {x, -4, 0}, PlotStyle -> RGBColor[1 0, 0], DisplayFunction -> Identity]; 
g2 = Plot[x, {x, -4, 0}, PlotStyle -> RGBColor[0,1,0], DisplayFunction -> Identity]; 
r={};x0 = -0.7;r0 = Graphics[{RGBColor[0, 0, 1], Line[{{x0, 0}, {x0, x0}}]}]; 
For[i = 1, i <= 200, i++, 
r= Append[r,Graphics[{RGBColor[0, 0, 1],Line[{{x0, x0}, {x0, f[x0]}, {f[x0], f[x01}}]}]]; x0 
= fx0];]; 
Show[g], g2, r, r0, PlotRange ->{-4, 0},DisplayFunction -> $DisplayFunctionl; 
4. 实验 4 的 程序 
Iter[a_, x0_] := 
Module[l{g1, g2, listgl listg2, r = {}, var = x0, fvar = a*x0*(1 - x0)}, 
flx_] := a*x*(1 - x); data = NestList[f, 0.02, 30]; 
listgl = ListPlot[data, PlotStyle -> PointSize[0.02], DisplayFunction -> Identity]; 
listg2 = ListPlot[data, PlotJoined -> True, DisplayFunction -> Identity]; 
Showflistgl, listg2, DisplayFunction -> $DisplayFunction]; 
g1 = Plot[f{x],{x,0,1}, PlotStyle ->RGBColor[l 0, 0], DisplayFunction -> Identity]; 
g2 = Plot[x, {x, 0, 1}, PlotStyle -> RGBColor[0, 1, 0], DisplayFunction -> Identity]; 
r0 = Graphics[{RGBColor[0, 0, 1], Line[{{x0, 0}, {x0, x0}}]}]; 
Forli = 1, i <= 100, i++， * 
r =Append[r, Graphics[{RGBColor[0, 0, 1], 
Line[{{var, var}, {var, fvar}, {fvar, fvar}}]}]); 
var = fvar; fvar = a*var*(]1 - var)]; 
Show[gl,g2,r,r0,PlotRange->{{0,1},{0,1}}, DisplayFunction -> $DisplayFunction];] 
a = 0.7; x0 = 0.2; Iter[a, x0] 
a = 2.9; x0 = 0.2; Iter[a, x0] 
a=3.4; x0 = 0.2; Iter[a, x0] 
a = 3.55; x0 = 0.2; Iter[a, x0] 
a = 3.7; x0 = 0.2; Iter[a, x0] 
5. 实验 5 的 程序 
Fiegenbaum[n_Integem a_, x0_] := Module[{plist = {}, i, temp, pilist = {}}, 
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For[r = 1, r <= n, r++, temp = x0; plist = {}; 
Forli = 1, i <= S0, i++, temp = a*r*temp*(1 - temp)jm]; 
For[i = $1, i <= 100, i++, temp = a*r*temp*(1 - temp)/n; 
AppendTo[plist, {a r/n, temp]j}]]; 
AppendTo[pilist,ListPlot[plist,PlotStyle->{PointSize[0.01]}), 
DisplayFunction-> Identity]]]; Show[pbilist, DisplayFunction -> $DisplayFunction];] 
Fiegenbaum[200, 4, 0.41] 
6. 实验 6 的 程序 
sensitivity[n_Integer, x01_, x02_] := 
Module[{plist = {}, i, templ = x01, temp2 = x02}), 
For[i = 1,i <= n, i++, templ = 4*templ*(1 - templ); 
temp2 = 4*temp2*(1 - temp2); AppendTo[plist, {i, temp2 - temp1lj];]; 
ListPlot[plist, PlotJoined -> True];] 
n= 100; x01 = 0.1; x02 = 0.15; sensitivity[100, x01, x02]; 
n= 100; x01 = 0.1; x02 = 0.105; sensitivity[100, x01, x02]; 
n = 100; x01 = 0.1; x02 = 0.1005; sensitivity[100, x01, x02]; 
7. 实验 7 的 程序 
distrib[n_Integer, m_Integer, x0_] := 
Modulel{i, temp = x0, gl, f, k, count = Table[0, {i, mj])， 
Forli=1,i<=n, i++, temp = 4*temp*(1 - temp); 
If[temp == 1, count[[m]]++, count[[Floor[temp*m] + 1]++]]; 
{Ik_] := Graphics[{GrayLevel[0.5], Rectangle[{k - 0.5, 0}, {k + 0.5, count[[k]]}]}]; gl = 
Table[ffk], {k, 1, m}];Show[gl1, Axes -> True];] 
n= 100; m = 20; x0 = 0.4; distrib[n, m, x0] 
n= 100; m = 20; x0 = 0.5; distrib[n, m, x0] 
n= 100; m = 20; x0 = 0.8; distrib[n, m, x0] 
8. 实验 8 的 程序 
playchaos[n_Integer, x0_] := Modulel{t = {}, i, temp = x0}, 
Forli=1,i <=n, i++, temp = 4*temp*(]1 - temp); AppendTo[t Floor[temp*100]]]; 
ListPlay[t, PlayRange -> {0, 100}, SampleRate -> 5]] 
n= 100; x0 = 0.1; playchao2[n, x0]; 
9. 实验 9 的 程序 
a=3.1; mm = 1.2; yn = 0; g = {{2m, yn}}; 
For[n = 1, n <= 1000, n++,xXN = xn; YN = yn; xn = YN - Sin[xXN]; yn = a - xN; 
g = Append[g, {xn, yn}];];ListPlot[g, AspectRatio -> Automatic]; 
10. 实验 10 的 程序 
martin[m,_ Integer, a_,b ,ec ] := Module[{xn = 0, yn = 0,g = {{0, 0}}}, 
For[n = 1, n <= m, n++, XN = xn; yN = yn; 
xn = yN - Sign[xN]*N[Sqrt[Abs[b*xN - c]]]; yn = a - xN; 
g= Append[g, {xn, yn}];]; 
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ListPlot[g, PlotStyle -> RGBColor[], 0, 0], AspectRatio -> Automatic];] 
m = 5000; a = 45; b = 2; c = -300; martin[m, a, b, c] 
m = 26000; a = 45; b = 2; c = -300; martin[m, a, b, c] 
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附录 Mathematica 软件 简介 


Mathematica 软件 是 一 个 功能 强大 的 数学 软件 系统 ， 它 主要 包括 : 数值 计算 、 符 号 计算 、 
图 形 功能 和 程序 设计 4 个 方面 的 功能 ， 它 含有 功能 强大 、 种 类 丰富 的 内 部 函数 , 用户 也 可 以 自 
由 地 定义 自己 的 函数 并 扩充 到 系统 函数 中 。 

下 面 简要 列 出 Mathematica 系统 的 主要 函数 ， 供 使 用 参考 。 要 进一步 掌握 和 了 解 
Mathematica 的 功能 ， 请 查阅 系统 的 在 线 帮助 和 参考 有 关 的 书籍 。 


附 .{ ”Mathematica 的 启动 与 退出 


Mathematica 是 一 个 交互 式 的 系统 。 它 的 用 户 界 面 为 图 形 形 式 ， 使 用 起 来 很 方便 ， 且 可 以 
很 方便 的 与 其 它 软件 〈 如 字 处 理 软件 等 ) 交换 信息 ， 图 形 处 理 也 更 直观 、 方 便 ， 使 用 更 广泛 。 
下 面 的 介绍 主要 以 Mathematica4 版 本 为 基础 ， 其 它 版 本 的 使 用 方法 类 似 。 


附 .1.1 ”启动 与 退出 


Mathematica 4 安装 完毕 后 ， 就 会 在 Windows 98 / 2000 / XP 的 开始 菜单 的 “程序 ”组 中 
建立 一 个 Mathematica 子 组 ， 单 击 其 中 的 Mathematica 4 即 弹 出 如 图 附 -1 所 示 的 Mathematica 
主 窗口 。 

在 主 窗口 中 ， 可 以 开始 输入 命令 进行 计算 工作 。 需 要 注意 的 是 ，Mathematica 的 计算 核心 
一 般 不 是 进入 系统 后 马上 启动 的 , 只 有 在 给 出 了 确实 的 计算 指令 后 才 开 启 , 这 时 屏幕 下 的 提示 
行 会 出 现 “Load kernel: n% complete” 等 信息 。 所 以 Mathematica 的 第 一 条 命令 的 执行 速度 会 
比较 慢 一 些 。 

退出 Mathematica 和 其 它 Windows 程序 一 样 ， 可 以 用 ALT-F4 组 合 键 , 也 可 以 选择 File 菜 
单 中 的 Exit 项 。 


图 附 -1 Mathematica 的 工作 窗口 
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附 .1.2 输入 命令 


进入 Mathematica 后 ， 就 可 以 输入 命令 。 系 统 解 释 并 执行 了 你 的 命令 后 ， 将 把 输入 命令 编 
号 ， 前 面 加 上 了 [nnn]: = 的 信息 (‘nnn ”代表 输入 命令 的 序号 )， 输 出 结果 前 也 将 加 上 提示 符 
Out[nnn]: =。 了 n 与 Out 以 及 其 后 括号 中 的 数字 ‘nnn” 都 是 Mathematica 自动 生成 的 , 不 需 专门 
输入 。 

特别 需要 注意 的 是 , 输入 的 Mathematica 命令 并 不 是 以 回 车 符 (Enter) 结束 的 。 也 就 是 说 ， 
您 可 以 一 次 输入 多 行 的 命令 ， 回 车 并 不 会 使 系统 执行 命令 。 执 行 命令 的 方式 是 键入 Insert 键 或 
Shift_Enter 组 合 键 或 者 按 一 下 执行 的 快捷 按钮 。 


附 .1.3 ”NoteBook (笔记 本 ) 


Mathematica 中 的 输入 与 输出 都 是 在 NoteBook 中 进行 的 。 每 一 次 输入 和 输出 作为 单元 
(cell) 出 现 ， 所 有 的 资料 ， 包 括 文本 和 图 形 都 被 组 成 有 序 的 单元 ， 通 过 定制 ， 你 可 以 改变 单 
元 的 字体 、 大 小 、 放 大 缩小 图 形 , 你 还 可 以 用 鼠标 选择 单元 右 部 的 标志 线 选择 一 个 或 一 组 单元 ， 
进行 单元 的 操作 。 
每 次 你 退出 Mathematica 时 ，Mathematica 会 询问 你 是 否 想 保 存 本 次 工作 ， 你 可 以 根据 它 
的 提示 进行 操作 。 


附 .14 ”复制 和 剪 切 


尽管 你 可 以 使 用 NoteBook 保存 自己 的 工作 ， 但 也 经 常 需要 将 Mathematica 得 出 的 结果 保 
存 到 其 它 文件 中 ， 或 者 将 在 其 它 文本 编辑 器 中 编辑 的 命令 调 到 Mathematica 中 执行 。 这 些 工作 
都 可 以 通过 Windows 前 贴 板 来 完成 。 


附 .1.5 ”使 用 以 前 的 结果 


任何 时 候 都 可 以 在 输入 表达 式 里 写 百 分 号 “%” 表 示 上 一 次 计算 的 结果 。 这 样 就 可 以 方便 
的 使 用 前 面 的 计算 结果 构造 新 的 计算 。 例 如 ， 

In[1]:= x^2+2 x*y+5 x*y^2 | | 

表示 定义 一 个 多 项 式 ， 则 第 二 个 命令 可 以 用 “%” 代 替 第 一 个 命令 的 结果 。 

In[2]:= %*(x^2+y) 

代表 将 第 一 个 多 项 式 乘 以 x*+y。 

还 可 以 用 %% 表 示 倒 数 第 二 个 计算 结果 。 更 一 般 的 方法 是 在 百 分 号 后 面 写 一 个 数 ， 表 示 以 
这 个 数 为 编号 的 那 一 次 计算 的 结果 回忆 一 下 提示 符 的 编号 )。 这 样 ， 前 面 已 经 得 到 的 任何 结 
果 都 可 以 方便 地 使 用 在 后 面 的 计算 里 了 。 


附 .1.6 ”使 用 联机 求助 系统 


在 使 用 Mathematica 的 过 程 中 ， 常 常 需 要 了 解 一 个 命令 的 详细 用 法 ,或 者 想 知 道 是 否 有 完 
成 某 一 任务 的 函数 。 联 机 帮助 系统 永远 是 最 详细 的 、 最 方便 的 资料 库 。 

1) 运算 区 的 查询 

在 运算 区 内 输入 相应 的 命令 ， 可 以 查询 内 部 函数 〈 操 作 ) * 的 有 关 信 息 。 

? Name 给 出 有 关 Name 的 粗略 信息 ; 
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?2? Name 给 出 有 关 Name 的 详细 信息 ; 
? LL* 给 出 以 工 开 头 的 所 有 函数 〈 操 作 ) 的 全 名 。 
例如 : ? Log 语句 的 执行 结果 为 
Log[z] gives the natural logarithm of z (logarithm to base E). Log[b, z] gives the logarithm to 
base b. 
这 正 是 内 部 函数 Log 的 涵义 或 用 法 说 明 。 这 样 可 以 查询 Mathematica 后 台 一 些 有 关内 容 
的 许多 重要 信息 。 此 外 ， 你 也 可 以 查询 自 定义 的 函数 的 有 关 信息 。 
2) Windows 格式 的 在 线 查 询 
在 Mathematica 的 工作 窗口 中 ， 用 鼠标 点 击 主 菜单 中 的 help 下 的 Help Browser， 激 活 Help 
Browser 帮助 系统 。 窗 口 如 图 附 -2 所 示 。 


图 附 -2 


在 Help Browser 中 不 但 汇集 了 Mathematica 所 有 命令 的 使 用 方法 , 而 且 包 含 了 其 完整 的 使 
用 手册 ( 约 1500 多 页 ) 及 Mathematica 的 各 种 工具 栏 的 使 用 方法 ， 甚 至 还 附带 了 多 个 范例 的 
动画 演示 程序 。Help Browser 共 分 了 6 大 类 帮助 信息 : 

Build-in Function ”查询 Mathematica 的 所 有 内 部 命令 与 函数 的 使 用 方法 ; 

Add-ons 查询 Mathematica 所 带 的 函数 库 〈packages) 命令 与 函数 的 用 法 ; 

The Mathematica Book Mathematica 的 完整 手册 ; 

Getting Started/Demos 初学 者 使 用 说 明 与 范例 ; 

Other Information 其它 信息 ， 包 括 Mathematica 集成 环境 的 介绍 、 数学 表达 式 二 维 格 

式 的 输入 方法 等 ; 

Master Index 用 索引 的 方法 查询 Mathematica 关键 词 。 

选择 搜索 主题 的 类 别 之 后 ， 输 入 关键 词 ， 单 击 GOTO 按钮 开始 搜寻 主题 ， 或 者 在 最 左边 
的 选项 列表 中 选择 搜索 主题 类 别 后， 在 逐渐 缩小 查询 范围 ， 进 行 搜索 。 例 如 ， 若 要 查询 Limit 
命令 的 使 用 方法 , 可 以 直接 在 Help Browser 中 输入 Limit, 再 单 击 Go To 按钮, 或 选择 Algebraic 
Computation-Calculus-Limit 找到 有 关 Limit 命令 的 说 明 ， 如 图 附 -3 所 示 。 

3) 关于 “;” 号 的 使 用 

Mathematica 语言 规定 “; ”号 为 其 语句 分 割 符 ， 当 其 后 不 再 有 Mathematica 语句 时 ， 其 含 
义 为 要 求 系统 不 再 输出 该 语句 的 运算 结 吉 果 中 Out 后 面 的 结果 ; 车 其 后 还 有 其 它 语句 , 则 认为 两 
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图 附 -3 
”语句 为 并 列 关系 ， 且 最 后 一 个 语句 的 结果 为 它们 顺序 执行 后 的 最 终结 果 。 请 输入 语句 “1+2” 
与 “1+2; ”， 比 较 它们 的 输出 。 但 由 于 绘图 执行 后 ， 其 图 形 在 Out 语句 出 现 前 画 出 ， 因 而 图 形 
给 出 ， 只 是 不 再 有 Out 语句 后 的 内 容 。 

4) 打开 文件 与 打开 程序 包 

主 菜单 File 中 Open 的 用 法 与 “<<” 的 用 法 : 

Open 用 于 打开 已 保存 的 文件 ; 

<< 用 于 读 入 Mathematica 命令 编写 的 程序 块 或 程序 包 ， 并 同时 执行 。 打 开 程序 块 时 ， 给 
出 运行 结果 ; 读 入 程序 包 时 ， 只 是 将 包 中 定义 的 变量 与 操作 函数 调 入 计算 机 内 存 ， 没 有 其 它 执 
行 结果 。 无 论 哪 种 情况 ，Mathematica 编辑 区 内 除了 执行 结果 的 有 关 信 息 外 ， 不 调 入 任何 程序 
段 。 
附 .1.7 初学 者 易 犯 的 错误 

(1) 大 小 写 错误 主要 指 系统 的 内 部 操作 命令 及 内 部 函数 的 首 写 字母 ; 

(2) 括号 错误 : 注意 大 、 中 、 小 三 种 括号 在 Mathematica 中 各 自 的 使 用 位 置 ， 或 括号 个 数 
不 配对 ; 

(3) 空格 符号 错误 ， 相 乘 时 一 定 要 加 空格 或 用 乘 号 ， 变 量 名 之 间 绝 对 不 能 用 空格 ; 

(4) 未 清除 某 些 变量 的 先前 定义 或 赋值 : 当 出 现 一 些 莫 名 其 妙 的 结果 ， 或 结果 复杂 时 ， 注 
意 检 查 是 否 有 这 一 问题 出 现 。 


附 .2 ” 数 、 表 达 式 、 洱 数 和 变量 


Mathematica 的 最 主要 功能 是 进行 数学 处 理 。 因 此 读者 应 当先 了 解 这 个 系统 关于 表达 式 书 
写 的 基本 规定 ， 包 括 最 基本 的 各 种 数 的 表示 ， 系 统 的 最 常用 的 各 种 函数 ， 以 及 如 何 书写 一 般 的 
代数 表达 式 问题 。 


附 .2.1 数 的 表示 和 计算 


Mathematica 的 简单 数值 类 型 有 整数 有理数 、 实 数 和 复数 。 Mathematica 的 数 分 为 两 大 类 : 
一 类 是 直接 用 数字 (和 人 小数点) 写 出 来 的 数 ， 另 一 类 是 系统 的 内 部 常数 ， 它 们 对 应 着 常用 的 数学 
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常数 。 

1. 数 和 数 的 计算 . 

Mathematica 和 一 般 的 程序 设计 语言 不 同 的 一 点 是 它 对 于 任意 数 (包括 整数 、 有 理 数 、 实 数 
等 ) 永 远 是 精确 的 ， 因 为 用 户 可 以 对 其 精确 度 进 行 控制 。 

Mathematica 的 算术 运算 符 包 括 加 减 乘 除 和 乘 方 ， 它 们 分 别 用 字符 +、-、*、/ 和 ^ 表 示 。 两 
个 整数 做 加 减 滋 和 乘 方 运算 的 结果 总 是 整数 。 

在 这 里 有 几 个 问题 要 注意 ， 

1) 表示 乘法 的 “*” 可 以 作 空格 符号 代替 。 在 两 个 整数 之 间 放 一 个 空格 就 表示 求 它们 的 乘 
积 ; 

2) 算术 运算 的 优先 顺序 符合 一 般 数 学 中 的 习惯 ， 先 乘 方 、 再 乘除 、 最 后 加 减 。 可 以 用 括 
号 改变 计算 的 顺序 ; 

3) 对 于 一 般 的 算 述 运算 符 ， 连续 的 几 个 同 级 运算 从 左 到 右 进 行 ， 习 方 运算 的 结合 顺序 不 
同 ， 是 从 右 到 左 进行 的 ; 

4) 与 一 般 程序 设计 语言 和 数学 的 习惯 一 样 ， 负 号 用 减 号 表示 ， 直 接 写 在 数 的 前 面 。 

2. 数学 常数 

数学 中 有 许多 常用 的 数学 常数 ; 例如 表示 圆周 率 用 的 x 、 表 示 自 然 对 数 的 底 的 E 等 。 在 
Mathematica 系统 里 ， 数 学 常数 都 是 精确 数 。 下 面 列 出 有 关 的 数学 常数 。 


Catalan Catalan 常数 ， 约 为 0.915966 
ComplexInfinity “ ，， 复 平面 上 无 穷 远 点 
Degree .角度 的 度 ，F /1180 
DirectedInfinity 有 方向 的 无 穷 
E | 自然 对 数 的 底 e ~ 2.71828 
EularGamma 欧 拉 常 数 y = 0.577216 
GoldenRatio 黄金 分 割 9 = (V5+1)/2=0.61803 
I 虚 单 位 i=-1 
Indeterminate 不 定 值 
Infinity 无 穷 大 
Pi ”圆周率 =3.14159 

附 .2.2 表达 式 


在 Mathematica 系统 里 ， 所 有 的 东西 都 是 表达 式 ， 表 达 式 都 有 一 种 统一 的 结构 形式 ， 可 以 
用 统一 的 方法 处 理 表达 式 形式 方面 的 问题 。 下 面 介绍 与 表达 式 有 关 的 一 些 操作 函数 的 使 用 。 

1. 与 表达 式 有 关 的 判断 

在 Mathematica 系统 里 对 表达 式 做 操作 时 ， 尤 其 是 写 程序 时 经 常 牵涉 到 一 些 判断 。 例 如 辨 
别 数 的 大 小 、 表 达 式 的 类 型 、 表 达 式 之 间 的 关系 等 。 系 统 提供 了 一 批 表达 式 类 型 判别 函数 ， 这 
些 函 数 在 表达 式 符 合 类 型 时 给 出 值 Tue， 和 否则 给 出 值 False。 这 些 函 数 包括 : 


NumberQ[ 表 达 式 ] 表达 式 是 否 一 个 数 
IntegerQ[ 表 达 式 ] 是 否 整数 
EvenQ[ 表 达 式 ] 偶数 


OddQ[ 表 达 式 ] 奇数 
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PrimeQ[ 表 达 式 ] 素数 
PolynomialQ[ 表 达 式 ， 变 量 表 ] ”变量 表 中 变量 的 多 项 式 


VectorQ[ 表 达 式 ] 一 个 表示 向 量 的 表 
MatrixQ[ 表 达 式 ] 一 个 表示 矩阵 的 二 层 表 
AtomQ[ 表 达 式 ] 是 否 为 简单 表达 式 


这 些 函 数 名 字 的 特点 是 都 以 Q 结尾 , Mathematica 系统 里 凡是 以 Q 结尾 的 函数 如 果 不 能 得 
到 值 True 时 就 返回 值 False。 而 其 它 以 逻辑 值 为 结果 的 函数 并 没有 这 种 性 质 。 

2. 与 表达 式 结构 有 关 的 函数 

大 多 数 对 表 可 用 的 结构 操作 对 于 一 般 表 达 式 也 可 以 使 用 。 这 样 的 函数 有 : First, Last，Rest， 
Take，Drop，Prepend，Append，Insert，Join 等 ， 系 统 还 提供 了 另外 一 类 与 表达 式 的 结构 有 关 
的 函数 ， 它 们 的 共同 特点 在 于 都 是 描述 如 何 把 某 一 个 函数 作用 于 一 个 表达 式 ( 依 据 表达 式 的 结 
构 特征 )。 这 些 函 数 及 其 使 用 是 : 
Apply[ 函 数 ， 表 ] 把 表 作 为 函数 的 参数 表 , 求 值 这 样 得 到 的 表达 式 . 这 样 做 相当 于 用 函数 


替换 表 的 头 。 
Map[ 函 数 ， 表 达 式 ] ”将 函数 作用 到 表达 式 的 第 一 层 的 每 一 个 元 素 上 ， 得 到 由 这 样 作用 的 结 
果 构 成 的 表达 式 。 
Map[ 函 数 ， 表 达 式 ， 整 数 n] 将 函数 作用 于 表达 式 的 由 顶层 直到 第 n 层 的 各 层 所 有 的 元 素 
上 * 


Map[ 函 数 ， 表 达 式 ，{ 整 数 n}j] ”将 函数 作用 于 表达 式 的 第 n 层 所 有 元 素 。 
MapAt[ 函 数 ， 表 达 式 ， 位 置 表 ] 描述 将 函数 作用 于 表达 式 的 某 一 个 (或 一 些 ) 特 定 元 素 ， 被 作 
用 的 元 素 由 位 置 表 确 定 。 
MapAll[ 函 数 ， 表 达 式 ] 将 函数 作用 于 表达 式 的 所 有 层 的 所 有 元 素 。 
3. 其 它 表 达 式 操作 函数 
Mathematica 系统 还 提供 了 一 些 表达 式 操 作 函 数 ， 主 要 有 : 
Position[ 表 达 式 ， 子 表达 式 ] ”确定 子 表达 式 在 表达 式 里 出 现 的 位 置 。 
前 面 在 讨论 表 操作 函数 时 已 经 介绍 过 这 个 函数 , 它 也 可 以 用 于 一 般 表 达 式 , 得 出 一 个 位 置 
的 表 ( 也 可 能 是 空 表 )。 
Select[ 表 达 式 ， 判 断 函数 ] ”以 远 辑 性 质 从 表达 式 的 元 素 中 选 出 满足 判断 函数 的 那些 子 
表达 式 ， 作 成 一 个 新 表达 式 。 
4. 关系 判断 和 多 辑 表达 式 
Mathematica 系统 也 有 逻辑 表达 式 。 基 本 的 关系 运算 符 包 括 : 


等 于 == 例 : x==y+l 
不 等 于 1!= xX!=a 

大 于 > at+1>b 

小 于 < x-y<d-2 
大 于 等 于 >= x^2>=n+l 
小 于 等 于 <= X<=a+b 


这 些 运算 符 还 可 以 连续 使 用 。 例 如 : x>=a>=b 用 于 判断 不 增加 ，x==y==z 全 相等 ，al=bl=c 
全 不 等 如 此 等 等 。 逻 辑 表 达 式 如 果 能 够 求 出 值 ， 结 果 只 能 是 真 (在 这 个 系统 里 用 True 表示 ) 或 
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者 假 (在 这 里 用 False 表示 )。 这 两 个 标识 符 具有 特殊 意义 ， 它 们 也 像 其 它 标识 符 一 样 可 以 写 在 
表达 式 里 。 系 统 还 提供 了 把 基本 关系 表达 式 连接 起 来 的 逻辑 运算 符 ， 包 括 : 


例 ， !(x>5) 
&& X 一 0&&y>3 
X==0lly==0 
Xor Xor[x==0，y==0] 
Implies lmplies[x>0，y>0] 


附 .2.3 ”常用 的 函数 


1. 常用 的 数学 函数 
Mathematica 系统 里 定义 了 许多 常用 的 数学 函数 ， 比 一 般 计 算 机 语言 里 的 数学 函数 多 。 具 


体 有 如 下 函数 : 
绝对 值 函 数 
三 角 函 数 
反 三 角 函 数 
双 曲 函数 
反 双 曲 函 数 
幅 角 函数 


阶乘 


Abs[x] 

Sin[X]，Cos[x]，Tan[x]，Cot[xj，Sec[X]，Cscfx] 

ArcSin[x], ArcCos[x], ArcTan[x], ArCCot[x], ArcSec[x], ArcCsc[x] 
Cosh[x], Sinh[x], Tanh[x], Coth[x], Sech[x], Csch[x] 

ArcSinh[x], ArcCosh[x}, ArcTanh[x], ArcCoth{[x]j, ArcSech[x], ArcCsch[x] 
Arg[x] 

Exp[x] 求 e” 

Log[a,x]( 求 以 a 为 底 x 的 对 数 ) 或 Log[x]( 求 x 的 自然 对 数 ) 
Max[x1,x2，…] 求 x1，x2,，… 中 的 最 大 值 

Min[xl,x2，……] 求 xl，x2，1… 中 的 最 小 值 

Mod[m,n] 求 mm 的 模 

Round[n] 距 离 n 最 近 的 整数 

Floor[n] 不 大 于 n 的 最 大 整数 

Sign[n] 取 n 的 符号 ，-1 为 负 、0 为 零 、1 为 正 


Sqrt[n] 求 Vn 
n! 求 n 的 阶乘 


求 近 似 值 函数 N[expr，n] 以 mn 为 精确 位 数 来 取 expr 的 值 


例如 : ”In[1]: ==N[Pi,5] 


Out[1]: =3.1416 


在 Mathematica 里 ， 把 一 个 函数 作用 于 一 个 (或 几 个 ) 表 达 式 的 方法 是 一 致 的 ， 都 是 把 表达 
式 写 在 函数 名 后 的 方 括号 里 ， 例 如 ; 


In[1]:=Sqrt[64] 


In[2]: 王 Exp[3.18] 

函数 的 书写 有 统一 的 规矩 

1) 它们 都 以 大 写字 母 开 头 ， 后 面 用 小 写字 母 。 当 函数 名 可 以 分 成 几 个 段 时 ， 每 一 个 段 的 
头 一 中 字母 用 大 写 ， 后 面 的 字母 用 小 写 。 

2) 函数 的 名 字 是 一 个 字符 串 ， 其 中 不 能 有 空格 。 
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3) 应 当 特 别 注 意 ， 函 数 的 参数 表 用 方 括号 括 起 来 ， 不 能 用 圆 括号 。 

4) 有 多 个 参数 的 函数 ， i 

2. 自 定义 函数 

定义 函数 使 用 的 符号 是 “: 一 ”。 定义 符号 的 左边 是 函数 名 和 方 括号 里 说 明 的 自 变量 ， 右 边 
是 函数 的 定义 表达 式 , 说 明 函 数值 应 当 如 何 从 函数 自 变量 的 值 计算 出 来 。 读者 特别 应 该 注意 定 


.在 定义 式 左 边 方 括 号 里 自 变量 名 后 面 的 “_”( 下 划 线 符号 )， 在 Mathematica 系统 里 这 个 符号 叫 


做 “空白 ”。 自 变量 名 后 面 的 空白 符号 是 必须 的 ， 它 应 紧 跟 在 自 变量 名 的 后 面 ， 中 间 不 能 有 空 
格 。 例 如 定义 函数 ; f(x,y)=x +2x+y 

In[1]:=f{x_, y_]:=x^2+2 x+y 

ln[2]:=f{1.5,，1] 

Out[2]:=6.25 


附 .2.4 变量 


(1) Mathematica 关于 标识 符 形式 的 规定 和 一 般 程 序 语言 里 差不多 , 标识 符 应 当 是 由 字母 开 
头 的 字母 数字 串 ， 可 以 包含 任意 多 的 字母 数字 ， 但 是 不 能 包含 空格 或 标点 符号 。 

特别 注意 : abx 表示 的 是 一 个 变量 的 名 字 ，a，b 和 x 的 乘积 必须 写成 akb*x 或 a b x。 这 
里 的 空格 不 能 省 略 。 

Mathematica 对 于 空格 使 用 的 规定 是 : 

1) 两 个 子 表达 式 (表达 式 中 的 数 、 变 量 、 Oe 
都 一 样 ) 或 换行 符 总 表示 子 表达 式 相 乘 。 

2) 在 系统 (和 我 们 ) 能 明确 判定 是 相 乘 的 地 方 可 以 省 略 空格 , 例如 在 数 的 后 面 有 数 以 外 的 其 
他 表达 式 ， 以 及 在 圆 括号 的 前 面 、 后 面 与 其 它 表达 式 之 间 可 以 不 写 空格 ， 等 等 。 

3) 在 许多 地 方 ， 如 在 算数 运算 符 的 前 后 ， 圆 括号 、 方 括号 的 前 后 ， 有 没有 空格 ， 有 几 个 
空格 都 不 改变 表达 式 的 意义 。 

(2) 变量 的 赋值 和 替换 。 像 在 有 些 程序 设计 语言 (如 FORTRAN 和 C) 里 一 样 ，Mathematica 
用 等 号 “= 二” 表示 给 变量 赋值 ， 例 如 把 一 个 多 项 式 作为 值 赋 给 变量 pl1， 应 当 写 : 

In[4]:=pl=5+6x^2+x^3+x^4y 

Out[4]:=pl=5+6x2+x +xy 

可 同时 替换 多 个 变量 ， 例 如 求 出 pl 在 x 王 1.2，y 王 2.34 时 的 值 : 

In[7]=p1/.(4x->1.2,y->2.34) | 

如 果 一 个 变量 的 值 不 再 有 用 了 ， 可 以 (而 且 应 当 ) 把 它 取 消 ， 方 法 是 在 一 个 赋值 式 的 右边 写 
一 个 圆 点 符号 ; 

In{8]:=ul=. 

在 这 个 命令 执行 之 后 ， 变 量 ul 的 值 就 不 存在 了 。 


附 .3 ”代数 式 与 代数 运算 


附 .3.1 清除 


x=. 或 Clearfx]， 表 示 取 消 对 x 的 赋值 ， 它 们 没有 输出 结果 。 一 般 说 来 ， 在 使 用 一 些 变量 
前 ， 最 好 先 作 这 部 分 工作 ， 这 可 以 避免 变量 的 以 前 赋值 结果 影响 以 后 的 计算 结果 。 
322 


附 .3.2 ”代数 式 的 几 个 操作 函数 


1. 展开 与 因 式 分 解 

除 按 一 般 的 算术 运算 外 ,Mathematica 对 多 项 式 还 有 展开 与 因 式 分 解 的 操作 , 命令 格式 为 : 
Expand[ 表 达 式 ]: 表示 对 表达 式 作 展开 运算 ; 

Factor[ 表 达 式 ]: 表示 对 表达 式 进 行 因 式 分 解 ; 


FactorTerms[ 表 达 式 ]: 提出 表达 式 各 项 中 的 公 因子 ; 
Collect[ 表 达 式 ，x]: 把 表达 式 写 成 x 的 寡 次 之 和 ; 
p=Expand[(x+2y+1)^2] 

2. 化 简 

Simplify[ 表 达 式 ]: 表示 把 表达 式 化 简 。 
Factor{x^6-y^6] 

Simplify{x^5-1] 

Factor[x^S-1] 


附 .3.3” 解 方程 


所 谓 求 解 方 程 就 是 设法 把 方程 对 于 变量 取 值 的 限制 弄 清 楚 ,最 好 的 结果 是 用 不 含有 变量 的 
表达 式 把 变量 的 值 表 示 出 来 。 在 这 个 系统 里 , 方程 也 用 含有 变量 的 等 式 表示 ,要 注意 的 是 在 这 
里 等 号 用 连续 的 两 个 等 于 符号 "= 二 "表示 。 方程 的 两 端 可 以 是 任何 数学 表达 式 。 用 户 可 以 自己 
操作 规定 Mathematica 系统 来 求解 方程 , 例如 使 用 移 项 一 类 的 等 价 变换 规则 对 方程 加 以 变形 、 对 
方程 的 两 端 进行 整理 、 把 函数 作用 于 方程 的 两 端 等 等 ,系统 也 提供 了 一 些 用 于 求解 方程 的 函数 。 

Mathematica 有 多 个 命令 可 以 求解 一 个 方程 或 方程 组 ， 如 Solve、Reduce 等 。 它 们 均 可 以 
用 来 求 方程 的 精确 解 。Solve 输出 的 结果 形式 为 一 代入 规则 列表 ; Reduce 则 给 出 方程 解 的 组 
合 条 件 表 示 形 式 。 

1. 求 方程 的 代数 解 

最 基本 的 方程 求解 函数 Solve， 它 可 以 用 于 求解 主 程 (主要 是 多 项 式 方程 ) 或 方程 组 。Solve 
有 两 个 参数 ， 第 一 个 参数 是 一 个 方程 ， 或 者 是 由 若干 个 方程 组 成 的 表 ( 表 示 一 个 方程 组 ); 第 二 
个 参数 是 要 求解 的 变量 或 变量 表 。 例如 , 下 面 的 式 子 对 于 变量 x 求解 方程 : x* -6x +1=0 

ln[f1]:=Solve[x^4-x^3-6x^2+1==0,x] 

输入 了 这 个 表达 式 ， 系 统 立 刻 就 能 计算 出 方程 的 4 个 根 ， 求 出 的 解 都 是 精确 解 (代数 根 )。 
对 于 一 般 的 多 项 式 , 这 样 得 出 的 解 常常 是 用 根 式 描述 的 复数 。 方 程 的 解 被 表示 成 一 个 表 ， 表 中 
是 几 个 子 表 ， 每 一 个 子 表 的 形式 都 是 {x->…}， 篆 头 后 面 是 方程 的 一 个 解 。Solve 也 可 求解 多 变 
. 量 的 方程 或 者 方程 组 : 

In[2]:=Solve[{x-2y==0，x^2-y==1},{x,y}] 
这 个 表达 式 求解 方程 组 : 
Xx-2y=0 
Ee —y=1 
2. 求 方程 的 数值 角 
把 函数 N 作用 到 这 个 结果 表达 式 上 ， 求 出 方程 的 数值 解 。 另 外 ， 还 有 两 个 求 数值 解 的 函数 。 
NSolve[ 方 程 或 方程 组 ， 变 量 或 变量 组 ] 用 法 和 Solve 相同 
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FindRoot[ 方 程 或 方程 组 ， 变 量 或 变量 组 初 值 ] 从 初 值 开 始 搜寻 方程 或 方程 组 的 解 
例如 ; FindRoot[Sin[x]Exp[2x]-Cos[x]==0,{x,0.5}] 
FindRot[ 方 程 或 方程 组 ， 变 量 或 变量 组 范围 ] 在 范围 内 搜寻 方程 或 方程 组 的 解 
例如 :; FindRoot[Sin[x]Exp[2x]-Cos[x]==0,{x,{0,1}}] 
3, 求 微分 方程 的 解 
DSolve[eqns,y[x],x] 解 y[x] 满 足 的 微分 方程 eqns 
例如 ; 求解 ”In[1]:==DSolvely'[x]== ==ay[x],y[x],x] 

Out[1]= {{y[x]-> c[1]}} 
求解 
In[2}:=DSolve[{y[x]==ay[x],y[0]==1}),y[x],x] 
Out[2]= {{y[x]->ay[x]}} 


附 .3.4 ”和 与 积 


在 Mathematica 中 ， 数 学 上 的 和 式 符号 王 用 Sum 表示 ， 连 乘 符号 代用 Product 表示 。 

求 和 函数 的 一 般 形式 为 : Sum[fn， {循环 初 值 ， 循环 终 值 ， 循环 步 长 }] 或 NSum[fn， {循环 
初 值 ， 循 环 终 值 ， 循 环 步 长 H 其 中 ，fn 是 和 式 的 通 项 公式 ， 可 为 各 类 初等 函数 和 自 定义 函数 ， 
它 能 计算 有 限 项 或 无 限 项 的 和 。 

乘积 函数 的 一 般 形式 为 : Product[ffn，{ 循 环 初 值 ， 循 环 终 值 ， 循 环 步 长 ] 或 NProductlfn， 
{ 循 环 初 值 ， 循 环 终 值 ， 循 环 步 长 ] 其 中 ，fo 是 乘积 的 通 项 公式 ， 可 为 各 类 初等 函数 和 自 定 义 
函数 ， 它 能 计算 有 限 项 或 无 限 项 的 积 。 


Sum[x^n/n!, {n, 0, S}]] (* 计 算 > *) 
n=0 n! 

Sum[Jk^3, {k, 1, 10 (+ 计算 > 总 *) 
大 =1 


附 .4 ”Mathematica 的 图 形 功 能 


Mathematica 图 形 功 能 的 最 重要 特点 之 一 是 支持 作 各 种 函数 图 形 , 包括 一 般 显 函数 的 二 维 、 
三 维 函 数 图 形 (平面 曲线 和 空间 曲面 ), 参数 形式 表示 的 二 维和 三 维 图 形 (平面 曲线 、 空 间 曲 线 和 
曲面 )， 以 及 函数 的 等 值 线 图 和 密度 图 等 等 。 图 形 可 以 着 色 、 加 光照 、 任 意 旋 转 等 。 系 统 的 作 
图 函数 还 有 许多 可 选 的 参数 项 ( 称 为 可 选项 ， 后 面 要 详细 地 讨论 )， 使 用 它们 可 以 在 作 图 时 指明 
各 种 特殊 的 要 求 。 


附 .4.1 基本 二 维 函 数 作 图 


最 基本 的 二 维 函数 作 图 由 系统 函数 Plot 实现 。 这 个 函数 的 使 用 形式 有 两 种 ， 
Plot[ 表 达 式 ，( 变 量 ， 下 限 ， 上 限 )， 可 选项 ] 
Plot[{ 表 达 式 ， 表 达 式 ，…… }，{ 变 量 ， 下 限 ， 上 限 }， 可 选项 ] 
第 一 个 使 用 形式 用 于 作 一 个 函数 表达 式 的 图 形 , 第 二 个 形式 用 于 在 一 个 图 里 作 多 个 函数 表 
达 式 { 表 达 式 ， 表 达 式 ，…} 的 图 形 ， 这 些 表达 式 要 放 在 花 括 号 里 面 。 
例如 : In[1]: 二 Plot[Sin[x],{x,0,2Pi}] 
In[2]:=Plot[{Sin[x],Cos[x]},{x,0,2Pi}] 
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图 附 -4 图 附 -5 


1. 二 维 函 数 作 图 的 可 选项 

对 于 任何 一 个 具有 可 选项 参数 的 函数 , 在 函数 使 用 时 如 果 要 指定 可 选 参数 , 这 些 可 选 参数 
都 应 当 放 在 所 有 必要 参数 的 后 面 。 每 一 个 可 选项 都 有 一 个 名 字 , 在 使 用 时 用 ; 可 选项 名 的 可 选 
项 值 的 形式 给 名 字 为 可 选项 名 的 可 选项 指定 值 。 下 面 就 具体 介绍 二 维 作 图 函数 的 有 关 可 选项 。 


PlotRange ”指定 Plot 的 作 图 范围 。 内 部 默认 值 是 Automatic， 表示 由 系统 确定 作 图 范围 。 
它 的 可 能 取 值 和 意义 如 下 : 
All 画 出 函数 值 的 全 部 倩 况 
{ 下 限 , 上 限 } ” 画 出 指定 范围 内 函数 图 形 ， 如 {yl,y2} 或 {{x1,x2},{yl,y2}} 
AspectRatlo ”指定 作 图 的 纵横 ， 默 认为 0.618:1 
Axes 说 明 是 否 画 坐标 轴 以 及 把 坐标 轴 中 心 放 在 何 处 。 它 的 可 能 取 值 和 意义 如 下 : 
Automatic 表 求 自动 确定 坐标 轴 中 心 位 置 (默认 值 ) 
None 不 画 坐 标 轴 
{xy} 表示 坐标 轴 中 心 位 置 为 (cy) 处 
AxesLabel 说 明 坐 标 铀 上 的 标记 符号 ， 它 的 可 能 取 值 和 意义 如 下 ; 
None 不 作 标 记 ( 默 认 值 ) 
{x,y} 把 横 纵 坐标 轴 分 别 标记 为 x 和 yx 和 y 可 为 任意 用 双 引 号 引起 的 字符 
序列 
Ticks 规定 坐标 轴 上 刻度 的 位 置 。 它 的 可 能 取 值 和 意义 如 下 : 
Automatic 自动 确定 坐标 轴 刻 度 (默认 值 ) 
None 不 标 出 坐标 刻度 
{xt,yt} 规定 刻度 ， 其 中 的 xtyt 可 以 是 None， 表示 在 一 个 轴 上 不 做 刻度 ; 或 者 是 
{t1,t2,，…}， 表 示 要 求 在 一 个 轴 上 按 位 置 t1,t2…, 设置 坐标 轴 刻 度 。 
PlotPoints 指定 计算 函数 值 的 (基本 ) 取 点 数 。 内 部 默认 值 是 15, 它 的 可 能 取 值 和 意义 
如 下 : 
x 用 户 需要 的 取 点 数 
MaxBend 说 明 表 示 函 数 曲 线 的 折线 在 相 邻 的 沥 段 之 间 的 最 大 折 角 ， 以 度 为 单位 。 
PlotDivision ”说明 在 (基本 ) 初 始 取 点 数 的 基础 上 细 分 的 限度 (最 多 增加 多 少 中 间 点 )。 


PlotStyle 说明 用 什么 样 的 方式 作 函 数 的 图 形 (曲线 )。 默 认 值 是 Automatic 由 系统 自动 确 
定 构 造 方式 。 这 时 Plot 用 一 条 黑 实 线 作 函数 的 图 形 。PlotStyle 的 值 应 当 是 一 个 表 。 在 作 一 个 
通 数 表达 式 的 图 形 时 ， 这 个 表 里 可 以 有 一 个 或 者 几 个 描述 图 素 形式 的 项 。 可 以 使 用 的 项 包括 : 


Thickness[t] 


描述 线 的 宽度 ， 其 中 是 一 个 实数 ， 说 明 要 求 的 画 线 宽度 ， 这 时 以 整个 图 
的 宽度 作为 1 计算 。. 


GrayLevelfi] ”描述 画 线 时 使 用 的 灰 度 ,其 中 的 i 是 一 个 [0.H 间 的 数 ， 说 明 灰 度 的 深浅 ， 其 
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中 0 表示 黑色 ，!1 表示 白色 。 

RGBColor[cg,b] ”说 明 颜 色 ， 其 中 的 zg,b- 是 三 个 取 值 [0,1] 间 的 数 ， 说 明 所 要 求 的 颜色 里 
红色 、 绿 色 、 蓝 色 分 别 的 强度 。 

Dashing[{d1i,d2,…}] 说 明 用 怎样 的 方式 画 虚线 。 其 中 的 dld2… 都 是 小 于 1 的 数 ， 说 明 
虚线 的 分 段 方 式 。 这 时 也 以 图 形 的 宽度 为 1。 
下 面 举例 说 明 : 

In[1]:=Plot[Sin[x], {xX,0,2Pi},PlotStyle->{RGBColor[1,0,0]}] 

In[2]:=Plot[Sin[x^2],{x,-2Pi,2Pi},PlotStyle->{GrayLevel[0.5], 

Dashing[{0.22,0.01}]}] 


2. 二 维 参数 图 形 

Mathematica 还 能 方便 地 画 参数 形式 表示 的 一 元 函数 的 平面 图 形 。 使 用 的 函数 是 
ParametricPlot。 它 的 使 用 形式 也 有 两 种 : 

ParametricPlot[{x(0),y(t)},{t, 下 限 ,上 限 }, 可 选项 ] 

ParametricPlot[{ {x1(t),y1()},{X2(0,y2(D}…),{t, 下 限 , 上 限 }, 可 选项 ]] 

其 中 可 以 是 任 一 个 变量 ,x(t)、y(t)、xi()、yilt) 等 是 包含 t 的 表达 式 ， 它 们 的 意义 对 于 了 
解数 学 的 人 是 很 清楚 的 。 第 一 个 形式 用 于 作 一 个 函数 的 图 形 , 第 二 个 形式 用 于 在 一 张 图 上 作 多 
于 一 个 函数 的 图 形 。 

ParametricPlot 接受 与 Plot 一 样 的 可 选项 ， 其 作用 也 一 样 ， 请 上 机 观察 下 例 。 

ParametricPlot[{Sin[X],Cos[x]},{x,0,2Pi},AspectRatio->Automatic] 

ParametricPlot[{ Sin[t],Sin[2t] },{t,0,2 Pi}] 


附 .4.2 ”基本 三 维 函 数 作 图 


最 基本 的 三 维 作 图 函数 是 Plot3D， 它 用 于 作 二 元 淫 数 的 三 维 立体 图 形 。Plot3D 的 基本 使 
用 形式 是 ， 
”Plot3D[ 函 数 表 达 式 ，{ 变 量 ， 下 限 ， 上 限 }，{ 变 量 ， 下 限 ， 上 限 }， 可 选项 ] 
其 中 两 个 变量 应 该 是 函数 表达 式 里 仅 有 的 两 个 变量 。 对 于 它们 在 给 定 区 域 的 每 一 对 取 值 ， 
函数 表达 式 应 当 能 够 求 出 一 个 实数 值 , :例如 : 
In[1]:=Plot3D[x^2Sin[y], {x,-1,1},{y,0,Pi}] 
1. 三 维 函数 作 图 的 可 选项 
函数 Plot3D 也 有 许多 可 选项 ， 下 面 将 讨论 一 些 比 较 常用 的 可 选项 的 意义 和 用 途 。 
PlotPoints 说 明 在 给 定 区 域 纵横 两 个 方面 上 中 间 取 点 的 数目 。 默 认 值 是 15。 可 以 用 任意 的 
整数 值 说 明 需 要 的 取 点 数 ， 或 者 用 {整数 ， 整 数 } 的 形式 说 明 在 两 个 方向 上 分 别 的 取 点 数 。 
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PlotRange 说 明 要 求 的 图 形 显示 范围 。 默 认 值 是 Automatic， 表 示 由 系统 自动 确定 

Al 要 求 在 所 有 的 地 方 按照 实际 情况 作 图 ， 不 切 掉 任何 特殊 区 域 和 尖峰 

{z1,z22} ”作出 函数 值 在 [zl;z2] 范 围 的 函数 图 形 

{{x1,x2},{y1,y2},{z1,z2}} 作出 由 这 些 值 确定 的 空间 矩形 里 的 函数 图 形 

PlotLabel ”说 明 图 的 名 称 标注 。 默 认 值 是 None， 表 示 图 不 加 任何 名 称 标注 。 可 以 用 任何 
字符 串 作 为 图 的 名 字 。 

AspectRatio 说 明 整 个 图 的 高 宽 比 。 默 认 值 是 1。 可 以 说 明 为 任意 的 数值 。 

PlotColor 说明 是 否 显示 彩色 。 

True 图 形 是 彩色 的 (默认 值 ) 

False 不 做 彩色 图 

Boxed 说 明 是 否 绘图 形 加 上 一 个 立体 框 。 默 认 值 是 True 表示 加 立体 框 。 

BoxRatios ”说 明 图 形 立 体 框 在 三 个 方向 上 的 长 度 比 。 默 认 值 是 1:1:0.4， 用 {1,1,0.4} 表 示 ， 
可 以 设 定 任 何 观 察 点 。 

Mesh 说明 在 曲面 上 是 否 画 网 格 ， 默 认 值 是 True。 可 以 用 False 取消 网 格 

HiddenSurfurce ”曲面 被 挡住 的 部 分 是 否 隐 掉 。 默 认 是 True 

Shading 在 曲面 上 是 否 涂 阴影 ( 涂 色 )。 默 认 值 是 True 根据 函数 值 的 大 小 用 灰 度 做 曲面 涂 
色 。 在 去 掉 阴 影 时 图 完全 是 白色 ， 只 能 看 到 网 格 。 

LightSources 设置 照明 光源 。 默 认 值 是 设置 了 三 个 点 光源 ， 分 别 是 红 、 绿 、 蓝 色 的 ， 放 
在 曲面 右边 45” 角 的 地 方 。 

Lighting 说明 是 否 打 开 已 经 设置 的 光源 。 默 认 值 ，False， 一 旦 打开 了 灯 ， 灯 光照 射 在 曲 
面 上 ， 就 会 产生 反射 ， 从 而 使 曲面 呈现 出 色彩 。 

AmbientLight ” 漫 射 光 设 置 ， 默 认 值 是 黑色 ， 用 GrayLevel[0] 表 示 ， 意 为 没有 漫 射 光 。 可 
以 用 任意 灰 度 或 颜色 设置 任意 漫 射 。 

ClipFill 作出 的 图 形 中 被 切 掉 的 那些 部 分 用 什么 方式 填充 。 默 认 值 是 Automatic， 系 统 用 
被 切 掉 部 分 中 每 个 区 域 的 实际 函数 值 确定 的 颜色 或 者 灰 度 显示 这 个 区 域 。 其 它 选 择 值 有 : 

None 表示 不 做 填充 

{ 上 填充 ， 下 填充 } 其 中 的 上 填充 ， 下 填充 是 颜色 或 灰 度 描述 ， 分 别 说 明 对 于 图 形 的 上 部 和 
下 部 被 切 掉 部 分 的 填充 方式 。 
Plot3D[Sin[x y], {x, 0, 4}, {y, 0, 4}]; 
Plot3D[Sin[x y], {x, 0, 4}, {y, 0, 4}, PlotPoints -> 40, Mesh -> False, 

FaceGrids -> All, AxesLabel -> {"Length", "Width", "Height"}]; 
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2. 三 维 参数 图 形 

现在 用 ParametricPlot3D 函数 作 一 个 球面 的 图 形 ， 来 说 明 其 具体 用 法 。 
ParametricPlot3D[{Sin[u}Cos[v],Sin[ulSin[v];Cos[ol},{u,0,Pi},{v,0,2Pi}] 
ParametricPlot3D[{Cos[$t], Sin[3t], Sin[t]}, {t, 0, 2 Pi}]; 


图 附 -9 
函数 ParametricPlot3D 也 有 许多 可 选项 ， 不 过 与 Plot3D 大 体 相同 。 
附 .4.3 ”等 值 线 图 、 密 度 图 


Mathenlatica 系统 还 提供 了 另外 几 个 表达 式 作 图 函数 , 其 中 的 ContourPlot,DensityPlot 能 够 
作 二 元 表达 式 的 等 值 线 图 、 密 度 图 。 还 有 用 数据 点 作 二 维和 三 维 图 形 的 函数 。 

函数 ContourPlot 用 于 作 二 元 表达 式 的 等 值 线 图 ， 其 使 用 形式 是 : 
ContourPlot[ 二 元 表达 式 ，{ 变 量 ,下 限 ,上 限 },{ 变 量 , 下 限 , 上 限 }, 可 选项 ] 

例如 ， 作 sin(xy) 的 等 值 线 图 ， 

In[1]:=ContourPlot[Sin[x y], {Xx,0,Pi},{y,0,Pi}] 

ContourPlot 的 可 选项 有 : 

PlotPoints ”指明 在 做 等 值 线 时 每 个 方向 上 求 值 点 的 个 数 。 默 认 值 15。 可 以 给 它 指定 任意 
正 整 数值 。 

PlotRange ”指明 作 图 时 函数 值 的 取 值 范围 。 默 认 值 ，Automatic, 表 示 自 动 处 理 。 

All 处 理 所 有 的 值 

{下 限 , 上 限 } 指定 范围 

函数 DensityPlot 用 于 作 密 度 图 形 ， 它 的 使 用 形式 与 ContourPlot 一 样 。 

函数 DensityPlot 用 于 作 三 元 函数 flx,y] 在 区 域 上 的 密度 图 ,密度 图 与 等 值 线 图 的 作用 相似 。 
DensityPlot[f[x,y],{X,Xxmin,xmax},{y,ymin,ymax}, 可 选项 ] 
例如 ， 作 Cos[x]Cos[y] 的 密度 图 : 
Density[Cos[x]Cos[y], {Xx,-2,2},{y,-2,2}] 


以 ee 
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附 .4.4 数据 作 图 


Mathematica 也 有 直接 调用 数据 画图 形 的 命令 ， 如 表 附 -1 所 示 。 
表 附 -1 
画图 函数 意 义 
ListPlot[{{x1,y1},{x2,y2},"",}] 画 出 数据 点 {x1,y1},{x2,y2},…， 
ListPlot[{y1,y2,*…,yn}] 画 出 数据 点 {{1,y1},{2,y2},*…,{n,yn}} 
ListPlot[ 数 据 ,PlotJoined->True] 画 出 一 条 通过 数据 点 的 光 消 曲线 


Data={{xlylzlj,{x2y2,z2}… 三 维 数据 点 
ListPlot3D[data] 使 用 数据 画 出 三 维 图 
ListContourPlot[data] 使 用 数据 面 出 数据 点 的 等 值 线 图 
ListDensityPlot[data] 使 用 数据 画 出 数据 点 密度 图 


请 上 机 实践 以 下 例子 : 

data=TFablefi^(2/3), {i,1,5,0.2}];ListPlot[data]; 
ListPlot[data,PlotJoined->True]; 
Table[{Random({],Random[]},{1,12}]:;ListPlot3D[%]; 


附 .4.5” 图形 的 重新 显示 和 组 合 


函数 Show 的 功能 是 显示 已 经 做 好 的 图 形 ， 使 用 时 可 以 重新 指定 一 些 可 选项 ， 使 图 形 按照 
需要 的 方式 显示 出 来 。 例 如 作 图 : 

In[1]:=g1 王 PlotLSin[x],{x,-PiPi] 

In[2]:=g2 二 Plot[Cos[x], {x,-Pi,Pi}] 

如 果 现 在 希望 用 实际 的 比例 尺度 重 作 这 两 个 图 ,并 想 它们 组 合 到 一 张 图 上 ,那么 输入 : 
In[3]:=Show[g1,g2,AspectRatio->Automatic] 便 可 。 


附 .4.6 用 图 形 元 素 作 图 
使 用 图 形 元 素 作 图 适合 于 画 结构 复杂 的 图 形 。 在 Mathematica 中 也 提供 了 各 种 二 维和 三 维 
图 形 元 素 ， 如 点 、 圆 弧 和 立方 体 等 。 一 般 做 法 是 ， 先 用 Graphics[ 图 形 元 素 ] 作 出 平面 图 形 表达 


式 ， 再 用 Show[ 图 形 表达 式 ] 的 形式 显示 完成 的 图 形 ， 如 表 附 -2、 表 附 -3 所 示 。 
表 附 -2 


二 维 图 形 元 素 几何 意义 
Point[{x,y}] 点 的 位 置 在 {x,y},x 和 y 为 坐标 轴 
Line[l{{xl,y1}),{x2,y2},**)] 依次 连接 相 邻 两 点 的 线段 
Rectangle[{xmin,xmax},{xmax,ymax}] 以 {xmin,xmax} 和 {xmax,ymax} 为 对 角 线 坐 标的 填充 矩形 
Ploygon[{x1,y1}),{x2,y2},°] 以 {xl,y1},{xX2;y2},… 为 项 点 的 封闭 多 边 形 
Raster[{{a11,a12},{a21,822},*…*}] 灰 度 颜色 的 矩阵 


Circle[{x,y},r] 圆心 在 {x,y}, 半 径 为 z 的 圆 
Circle[{x,y},{rxsry}] 中 心 在 {x,yj, 长 短 半 轴 为 rx 和 ry 的 椭圆 
Circle[{x,y},r,{t1,t2}] 从 弧度 tl 到 弧度 避 的 贺 弧 

Circle[{x,y},{mory),{t1,t2}] 从 弧度 tl 到 弧度 届 的 椭圆 弧 

Disk[{x,y},r] \ 圆心 在 {x,y} 半 径 为 1 的 填充 圆 
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例如 (请 上 机 实践 ): 

<<Graphics’ 
gl=Graphics[{Line{{-1.5,1.5},{1.5,1.5}},PointSize[0.02],Point[{0,1}],Point[{1,0}]}]; 
Show[gl]; 


表 附 -3 
Point[{x,y,z}] 点 {x,y,z} 
Line[l{{xl,y1,21},{x2,y2,22},.…}] 通过 点 {x1yy1,z1),{x2,y2,z2},… 的 线 
Polygon[{{x1,y1,z1},{x2,y2,22},***}] 具有 指定 角 点 的 填充 多 边 形 
Cuboid[{x0,y0,20},{x1,y1,z1}] 以 {x0;y0,z0] 和 {x1,y1,z1l]} 为 对 角 线 的 立方 体 
Text[expr,{x,y,z}] 在 {x,y,z} 处 的 文本 expr 
例如 : 
p=table[Point[{Random{],Random([],Random[]}],{24}]; 
Show[Graphics3D[p]] 


附 .4.7 ”制作 图 形 动画 


用 Mathematica 制作 动画 是 相当 精彩 的 一 部 分 内 容 。 制 作 原理 非常 简单 ， 它 只 是 把 
Mathematica 绘制 的 图 一 张 张 快速 地 显示 出 来 ， 从 而 形成 动画 。 下 面 用 一 个 范例 来 说 明 如 柯 制 
作 动 画 .步骤 如 下 ; 

(1) 输入 以 下 语句: 

Table[Plot[Sin[x + z]Cos[z], {x, 0, 3Pi]， 

PlotRange -> {-1, 1}], {z, 0, 2Pi, 0.2}]; 
(2) 执行 以 上 语句 后 ,Mathematica 便 绘制 出 32 张 图 ; 
(3) 用 鼠标 左 键 双击 其 中 的 任何 一 张 图 ， 便 开始 播放 动画 ， 如 图 附 -11 所 示 。 


图 附 -11 
注意 ; 在 播放 动画 的 时 候 , 在 窗口 的 左下 角 会 显示 类 似 于 录音 机 上 的 按钮 的 图 标 ， 你 可 以 
利用 这 些 按钮 实现 动画 的 正 向 播放 、 反 向 播放 、 暂停 及 播放 速度 等 操作 。 如果 想 停止 播放 动画 ， 
只 要 用 鼠标 左 键 单 击 工作 区 内 的 任意 一 点 即 可 。 
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附 .5 ” ”Mathematica 在 微 积分 中 的 应 用 
”Mathematica 在 微 积 分 中 的 应 用 的 常用 命令 如 表 附 -4 下 面 是 一 些 例子 (自己 上 机 实践 )。 


Limit[Sin[x]/xx->0] 
DISin[n*x],x] 

D[Sin[n x],{x,3]] 
Dt[Sin[n*x],x] 
Dt[Sin[n*x],x,Constans->n] 
Integrate[Log[x],x] 


Integrate[ Tan[x]* Tanfy],{x,0,1}),{y,0,1}] 
NIntegrate[Exp[-x^2/2],{x,0,Infinity}] 


Series[Exp[x]^(1/2),{x,-1,3}] 
Series[Cos[x]Cos[y],{x,0,3},{y,0,3)] 
DSolve[y' [x]==a y[x],y[x],x] 


DSolve[{x' [t==y[thy’[t]}==x[t])},{x{t],y [t]}t] 
表 附 -4 微 积 


Limit[fTx],x->x0] 
LimitIfTx],x->x0,Direction->1] 
Ltmit[f{x],x->x0,Direction->-1] 

_ DItx] 

Dlf,x1,x2, .…] 
D{f{xn}} 
D[f,x,NonConstans->{v1,v2,""]] 
Df 
Dtfx] 
Dittxtz2] 
Dt{f,x,Constans->{c1,c2,"""}] 

Integrate[f,x] 
Integrate[lf,x,y,**] 


Integrate[f,{x,a,b}] 


的 常用 命令 


求 极限 im 7 
求 极限 lim 7 
求 极限 lm 7 
求 导数 业 (成 信 导 数 民 ) 
求 偏 导数 EE 
求 高 阶 导数 守 开 (或 了) 
求 导数 之 ,其 中 vl, 2… 是 无 的 函数 
全 微分 


时 
全 导数 地- 


dd 
| (f) 


全 导数 于 ,其 中 1,c2,… 看 作 常数 
不 定 积分 [fdx 
不 定 积分 [dx f(x,y)dy 


定 积分 广 f dx 
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NIntegrate[f,{x,a,b}] 数值 积分 三 f(x)dx 


Integratelt,(xa,b},{y,e.d)] 二 重 积 分 | dz| f(x) 


NIntegrate[bfxabhfyea]] 数值 积分 | dz f(x,y)dy 
Series[f,{x,x0,n}] 展开 为 释 级 数 
Dsolve[eqns,y[x],x] 解 常 微分 方程 


NDsolve[eqns,y[x],{x,xmin,xmax)}] 求 常 微 分 方程 在 区 间 [xmin,xmax] 上 的 数值 解 


附 .6 ”Mathematica 在 线性 代数 中 的 应 用 


附 .6.1 向 量 与 矩阵 的 定义 


向 量 与 矩阵 的 常用 Mathematica 命令 见 表 附 -5， 下 面 给 出 一 些 例 子 。 
表 附 -5 向量 与 矩阵 的 定义 的 常用 命令 


Array[a,n] 定义 一 个 n 维 向 量 
Array[a,{mn}] 定义 一 个 m 行 n 列 算 阵 
Table[ft1], {Vimin,imax,di}] - 元 素 为 [0 的 向 量 
Table[fTLj],{Limin,imax,di},{j,jmin,jmax,dj}] 元 素 为 [ij] 的 矩阵 
IdentityMatrix[n] 严 阶 单位 矩阵 


A=Array[a,{2,2}1;a[1,1]=2;a[1,2]=3;a[2,1]=4;a[2,2]=1;A 
B=Table[1.0,{2},{2}] 
IdentityMatrix[{1,2,3}] 


附 .6.2 ”和 矩阵 的 运算 符号 和 男 数 


下 面 列 出 一 些 常 用 的 矩阵 运算 符号 和 函数 ， 见 表 附 -6。 
表 附 -6 


UV 向 量 了 1 与 了 的 内 积 
人 A.B 矩阵 4 与 拭 阵 也 相 乘 
Det[M] 计算 矩阵 MW 的 行列 式 


Transpose[MD M 的 转 填 矩阵 MI 
Inverse[M] 计算 矩阵 M 的 道 矩阵 Mr 
Figenvalues[A] 计算 矩阵 4 的 全 部 (准确 解 ) 特 征 值 
Eigenvalues[N[A]] 计算 矩阵 4 的 全 部 (数值 解 特 征 值 
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Eigenvectors[A] 计算 矩阵 4 的 全 部 (准确 解 ) 特 征 向 量 
Eigenvectors[N[A]] 计算 矩阵 4 的 全 部 (数值 解 ) 特 征 向 量 

Eigensystem[A] 计算 矩阵 4 的 全 部 (准确 解 ) 特 征 值 和 特征 向 量 
Eigensystem[N[A]l 计算 矩阵 4 的 全 部 (数值 解 ) 特 征 值 和 特征 向 量 


附 .6.3 ”线性 方程 组 求解 


在 Mathematica 中 求解 线性 方程 组 的 常用 语句 如 表 附 -7。 
表 附 -7 


RowReduce[A] 作 行 的 线性 组 合 化 简 A 


LinearSolve{A,B] 求解 满足 方程 组 AX=B 的 一 个 解 , A 为 方 阵 
NullSpace 求解 方程 组 4X=0 的 基础 解 系 的 向 量 表 , 4 为 方 阵 


例 : 已 知 4= ， 计 算 4 的 秩 ,并 求 出 方程 组 AX=0 的 基础 解 系 。 


1 1 
1 1 
3 1 -1 3 
3 2 13 
A={{1,1,1,1),{1,0,-1,1},{3,1,-1,3},{3,2,1,3}};RowReduce[A] 
NullSpace[A] 


附 .7 ”Mathematica 在 概率 论 与 数理 统计 中 的 应 用 


Mathematica 把 有 关 统 计 、 计 算 或 绘图 的 命令 都 收集 保存 在 Statistics 这 个 函数 库 中 ， 
Statistics 函数 库 又 包含 了 下 列子 函数 库 ， 它 们 分 别 是 : 


Statistics’ ConfidenceIntervals’ 置信 区 间 的 计算 与 分 析 
Statistics’ ContinousDistribution’ 连续 分 布 
Statistics’ DataNanipulation’ 数据 的 分 析 与 运算 
Statistics' DescriptiveStatistics’ 描述 统计 

Statistics’ DiscreteDistribution’ 离散 分 布 

Statistics' HypothesisTests’ 假设 检验 

Statistics’ LinearRegression’ 线性 回归 

Statistics’ NonlinearFit’ 非 线 性 拟 合 


在 调用 这 些 子 函数 库 中 的 命令 之 前 ， 必 须 先 分 别 加 载 它们 ， 如 : 
<< Statistics’ DataNanipulation’ 
如 果 想 加 载 整个 统计 函数 库 时 ， 可 以 用 
<< Statistics’ 
命令 加 载 。 下 面 将 列 出 一 些 常用 的 命令 如 表 附 -8。 例 : 
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<< Statistics’ 

<<Graphics′Graphics' 
data={2,4,3,3,4,3,3,6};fre=Frequencies[dataj] 
BarChart[fre]; 

CumulativeSums[data] 

Mean[dataj 

Varivance[data] 


Freguencies[data] | 计算 data 中 数据 出 现 的 次 数 
CumulativeSums[data] 计算 数据 的 累加 和 
BinCounts[data,{xmin,xmax,dx}] 以 min 与 max 为 最 小 和 最 大 界限 ，dx 为 组 距 计算 data 中 落 于 每 一 组 的 个 数 
Mean[data] 计算 数据 的 平均 值 
Mode[data] 找 出 数据 中 出 现 最 多 的 数 ， 众 数 
Median[data] 数据 的 中 位 数 
Variance[data] 样本 方差 
StandardDeviation[data] 样本 的 标准 差 


Covariance[datal,data2] 计算 Datal 与 data2 协 方差 


Correlation[datal,data2] 计算 两 组 数据 的 线性 相关 系数 
BarChart[datal,data2,...] 绘 出 datal,data2,... 长 条 图 
Histogram[data] 绘制 直方 图 
PDFTdistx] 计算 在 dist 分 布 中 点 x 的 概率 密度 函数 
CDFTdist,x] 计算 在 dist 分 布 中 点 x 的 分 布 函数 
Random[dist] 产生 一 个 服从 dist 分 布 的 随机 数 
RandomArray[dist,n] 产生 n 个 服从 dist 分 布 的 随机 数组 成 的 集合 
MeanCI[data] 计算 ! 分 布 的 总 体 平 均 数 的 置信 区 间 
MeanCIldata,KnowVariance->var] 计算 正 态 分 布 的 总 体 平均 数 的 置信 区 间 ， 其 中 方差 为 var。 


附 .8 ”Mathematica 在 数值 计算 方法 中 的 应 用 


附 .8.1 插值 


Interpolation 插值 函数 的 一 般 形式 : 

Interpolation[data,InterpolationOrder->n] 

对 数据 data 进行 插值 运算 ， 并 可 设置 插值 多 项 式 的 次 数 n， 默 认 值 为 3。Interpolation 生 
成 一 个 InterpolationFunctio[ 插 值 范 围 ,<> 目 标 ]， 系 统 布线 时 所 构造 的 插值 函数 。 因 此 ， 用 户 
直接 用 生成 的 插值 函数 计算 函数 的 近似 值 。 例 如 ， 

data=Table[{{1,16}),{2,12},{4,8}),{5,9}}; 

g=JInterpolation[data,Interpolation->3] 

g[1.2] 

在 数据 中 还 可 以 包括 插值 点 处 的 导数 值 ， 按 { {x0,{y0,dy0}}，{x1，{x1,y1,dy1}},…} 形 式 存 
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例 : 已 知 插值 条 件 (0) = 0, fj(D = 2, F"(0) =1L FMD =1， 求 三 次 插值 多 项 
d={{0,0,1},{1,2,1}};h=Interpolation[d,x];h[0.2] 


附 .8.2 ” 拟 合 


拟 合 函数 Fit 的 一 般 形式 ;: 
Fit [数据 ， 拟 合 函 数 的 基 ， 变 量 ] 
f={{1.36,14.09},{1.49,15.09},{1.73,16.84}),{1.81,17.38},{1.95,18.44},{2.16,19.95}};Fit[f,{1,x},x] 


Fit[f,{1,x,x^2},x] 
Data=Table[{x,Log[x]},{x,1,10,1}];Fit(Data,{1,x,x^2},x] 


附 .8.3 ”最 优化 


Mathematica 中 用 来 求 极 值 的 常用 语句 如 表 附 -9。 
表 附 -9 


FindMininum{f,{x,x0}] 以 初始 点 为 x=x9 计算 的 f 一 个 局 部 极 小 值 点 


FindMininumlf,{x,{x0,x1}}] 以 x0,x1 为 初始 值 计算 f 极 小 信 ， 当 找 不 出 f 的 显示 导数 表示 时 使 用 
FindMininum[f, {x,{xs,x0,x1}}} 以 x=xs 为 初始 值 ， 在 区 间 [x0,x1] 计 算 的 极 小 值 
FindMininumlf,{x,x0},{y,y0},...] 计算 多 变量 函数 f 的 极 小 信 ， 初 信 为 {x0,y0,.…} 


附 .8.4 ”线性 规划 


在 限定 区 域内 求 线性 目标 函数 的 极 大 或 极 小 值 的 Mathematica 命令 为 

ConstrainedMax[ 目 标 函 数 ，{ 限定 区 域 }，{ 变 量 j] 

ConstrainedMin[ 目 标 函数 ，{ 限 定 区 域 }，{ 变 量 }] 

计算 minf =c Xs.t.AX 之 b,X 过 0， 其 中 c = (ceic)， 避 = 人 并) 的 Mathematica 
命令 为 

LinearProgramming[c,A,b] 

例如 ， 计 算 函 数 了 (x,y)=3x+2y 一 1 在 限定 区 域 x<1,y>2 上 的 最 大 值 和 最 小 值 。 

输入 以 下 Mathematica 语句 : 

ConstrainedMax[3 x+2 y-1,{x<ly<2},{x yj] 

ConstrainedMin[3 x+2 y-1{x<ly<2},(xyj] 


附 .9 ”Mathematica 的 程序 结构 与 设计 


附 .9.1 循环 结构 


While[ 条 件 ,表达 式 ] 当 型 循环 结构 。 

在 被 求 值 时 ,其 条 件 (一 个 逻辑 表达 式 ) 先 被 求 值 ， 若 求 出 值 True, 则 求 值 它 的 表达 式 部 分 , 然 
后 再 重复 上 述 过 程 ,一 旦 对 条 件 的 求 值得 不 到 True, 整 个 循环 结构 的 求 值 结束 。 注 意 ,While 结构 
(作为 一 个 表达 式 ) 求 值 的 结果 永远 是 Null。 
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For[ 初 始 表达 式 ， 条 件 ， 步 进 表 达 式 ， 表 达 式 ] For 循环 结构 。 

被 求 值 时 ， 其 初始 表达 式 首 先 求 值 ; 然后 进行 循环 ， 依 次 求 值 条 件 、 表 达 式 、 步 进 表达 式 ， 
一 旦 对 条 件 的 求 值 不 能 得 到 Tre， 立 即 结束 整个 结构 ， 和 While 结构 一 样 ，For 结构 最 后 得 到 
的 值 总 是 Null。For 结构 允许 没有 表达 式 部 分 ， 可 以 使 用 如 下 形式 : 

For[ 初 始 ， 条 件 ， 步 进 表达 式 ]。 

For 循环 的 步 进 表达 式 一 般 用 于 对 一 些 循 环 控制 变量 做 步 进 赋值 。 系 统 中 有 一 些 专门 为 更 
新 变量 而 提供 的 操作 ， 主 要 的 是 ，n++,++n， nm--,--D, 这 里 n 应 当 是 一 个 整数 值 变 量 。 

这 些 表 达 式 使 变量 的 值 加 ( 减 )1;， 还 可 以 用 +=,-=,*=,/= 运 算 符 给 (数值 ) 变 量 加 减 乘除 一 个 表 
达 式 的 值 。 这 些 运算 符 的 意义 与 C 语言 里 同样 形式 的 运算 符 类 似 。 使 用 这 些 结构 要 注意 : 首 
先 ， 两 种 循环 都 必须 在 条 件 表 达 式 的 求 值得 到 True 时 才能 继续 ， 否 则 就 结束 。 由 于 这 里 的 数 
据 对 象 是 一 般 的 表达 式 ， 对 逻辑 表达 式 的 求 值 有 时 可 能 得 不 到 逻辑 值 。 第 二 ， 虽 然 在 有 些 程序 
语言 里 可 以 把 0、1 等 数值 当 逻 辑 值 使 用 ， 在 Mathematica 系统 里 不 能 这 样 使 用 。 第 三 ， 这 两 
种 结构 的 值 总 是 Nul， 因 此 不 应 该 使 用 它们 的 值 。 

Mathematica 系统 里 还 有 一 些 特殊 的 循环 结构 ， 它 们 有 : 

Do[ 表 达 式 ， 循 环 描述 ] Do 按照 循环 描述 重复 求 值 表达 式 部 分 。 

这 种 循环 的 特点 是 循环 次 数 由 循环 描述 直接 确定 。 整 个 Do 结构 的 求 值 结果 总 是 Null。 
FixedPoint[ 函 数 ， 表 达 式 ] 从 表达 式 出 发 ， 一 次 次 地 用 函数 作用 ， 直 到 结果 不 再 变化 (达到 一 个 
不 动 点 ) 为 止 。 


附 .9.2 ”分支 结构 


在 复杂 的 计算 中 常 需要 根据 表达 式 的 情况 ( 它 是 否 满足 一 些 条 件 ) 确 定 是 否 做 某 些 处 理 , 或 
在 满足 不 同 的 条 件 时 做 不 同 的 处 理 。 前 面 关于 规则 定义 的 许多 机 制 都 可 以 处 理 这 方面 的 问题 ， 
它们 实际 上 也 是 足够 的 , 只 要 把 每 一 个 要 考虑 条 件 的 地 方 定 义 为 一 个 专门 的 函数 。 但 这 样 做 有 
时 显得 太 麻烦 ， 定 义 的 函数 可 能 并 没有 客观 的 逻辑 意义 。Mathematica 提供 了 一 些 描述 条 件 分 
支 的 结构 ， 它 们 常用 在 程序 里 ， 用 于 控制 程序 的 执行 过 程 。 

下 结构 (1f 表达 式 ) 与 一 般 程序 设计 语言 的 分 支 结 构 类 似 。 由 于 系统 的 处 理 对 象 是 表达 式 ， 
这 里 的 还 结构 有 三 种 形式 ; 

If[ 条 件 ， 表 达 式 ] 

当 条 件 的 值 是 True 时 ， 对 参数 表达 式 求 值 ， 将 它 的 值 作为 整个 结构 的 值 ， 当 条 件 的 值 是 
False 时 ， 则 给 出 值 Null。 

If[ 条 件 ， 表 达 式 1， 表 达 式 2] 

当 条 件 的 值 是 True 时 , 将 表达 式 1 的 值 作为 整个 结构 的 值 ， 当 条 件 的 值 是 False 时 , 将 表 
达 式 2 的 值 作为 整个 结构 的 值 。 | 

If[ 条 件 ， 表 达 式 1， 表 达 式 2， 表 达 式 3] 

当 条 件 的 值 是 True 时 , 求 值 表达 式 1 作为 结果 ; 当 条 件 的 值 是 False 时 ， 以 表达 式 2 的 值 
作为 结果 ; 当 条 件 求 不 出 True 或 False 时 ， 以 表达 式 3 的 值 作为 结果 。 

对 于 前 面 两 种 情况 ， 如 果 条 件 不 能 求 出 逻辑 值 ， 则 整个 If 结构 保留 未 求 值 的 样子 (以 原来 
形式 作为 求 值 的 结果 )。 

”这 里 还 有 两 种 分 支 结构 ， 它 们 是 : 

Which[ 条 件 1， 表 达 式 2， 条 件 2， 表 达 式 2，…] 
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依次 求 值 每 一 个 条 件 ， 当 遇 到 第 一 个 求 出 值 True 的 条 件 时 ， 求 值 它 对 应 的 表达 式 ， 把 这 


个 表达 式 的 值 为 作 整 个 结构 的 值 。 若 有 一 个 条 件 不 能 求 出 逻辑 值 , 则 整个 结构 以 未 求 值 的 形式 
作为 结果 ， 与 于 类 似 。 如 果 所 有 条 件 都 求 出 值 False， 则 结构 的 值 是 Null。 用 True 作为 Which 
的 最 后 一 个 条 件 ， 可 以 用 于 处 理 “ 其 它 ” 情 况 。 

Switch[ 判 别 表达 式 ， 模 式 1， 表 达 式 1， 模 式 2， 表 达 式 2，…] 

求 值 判别 表达 式 , 将 结果 顺序 与 结构 中 的 模式 匹配 遇 到 第 一 个 可 匹配 的 模式 时 ， 以 它 对 
应 的 表达 式 的 值 作为 整个 结构 的 值 。 如 果 没 有 能 匹配 的 模式 ， 整 个 结构 的 结果 是 Nul。 这 两 
种 分 支 结构 的 描述 能 力 很 强 。Switch 用 模式 匹配 的 方法 实现 按 表 达 式 的 结构 分 支 处 理 ，Which 
以 逻辑 判断 为 依据 ,可 以 用 来 处 理 语义 关系 。 


附 .9.3 ”程序 中 的 注释 


Mathematica 的 注释 在 形式 上 是 由 符号 “(*” 和 “*)” 插 起 的 任何 字符 序列 ,序列 中 可 以 有 
任何 字符 ,包括 空格 字符 、 换 行 符 等 。“(*” 与 “*)” 括 起 的 注释 还 允许 骨 套 。 


附 .9.4 ”基本 输入 、 输 出 


1. 屏幕 输出 

系统 的 基本 屏幕 输出 函数 是 Print, 它 的 使 用 形式 是 : 

Print[ 表 达 式 ， 表 达 式 ，…] 

函数 Print 把 作为 它 的 参数 的 表达 式 依 次 用 输出 形式 显示 出 来 。 两 个 相 邻 的 表达 式 输 出 之 
间 不 留 空格 ， 整 个 输出 完结 后 换 一 行 。 如 果 需 要 在 表达 式 之 间 留 空格 ,可 以 自己 在 它们 之 间 加 
上 包含 空格 的 字符 串 。 

2. 文件 输出 

要 把 一 个 变量 的 值 或 者 一 次 计算 的 结果 存 入 一 个 文件 ,用 : 

变量 名 >>“ 文 件 描述 ” 

要 把 一 些 东 西 存 进 一 个 文件 ， 放 在 已 有 的 数据 后 面 用 

变量 名 >>>“ 文 件 描述 ” 

这 两 个 操作 对 应 的 实际 形式 是 : 

Put[ 表 达 式 ,表达 式 ,…， 文 件 描述 ] 

它们 把 作为 参数 的 表达 式 用 输入 形式 依次 写 入 指定 文件 , 如 果 需 要 把 表达 式 用 其 它 形式 输 
出 到 文件 ， 必 须 特别 说 明 。 例 如 要 把 一 个 表达 式 用 输出 形式 写 入 文件 ， 应 当 写 : 

OutputForm[ 表 达 式 ]> > 文件 描述 

OutputForm[ 表 达 式 ]> > > 文件 描述 

3. 交互 式 输入 

需要 从 用 户 那里 接受 信息 ,可 以 用 Input 或 InPutString。 

Input[] “” 当 求 值 这 个 函数 时 ， 系 统 停止 在 当时 状态 ， 等 待 用 户 输入 。 当 用 户 键盘 输入 一 
个 完整 的 表达 式 后 ,Input 函数 以 这 个 表达 式 作为 值 返 回 。 
Input[ 提 示 字 符 串 ] 作用 同上 ， 只 是 系统 在 等 待 输入 时 首先 在 屏幕 显示 提示 字符 串 。 
InputString，[] 与 Input 类 似 ， 只 是 它 要 求 输入 一 个 字符 串 ， 而 不 是 一 个 一 般 的 表达 式 。 
InputString[ 提 示 字 符 串 ] 等 待 输入 时 显示 提示 字符 串 。 
4. 从 文件 读 入 数据 
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从 文件 读 入 数据 的 基本 函数 是 Read， 其 使 用 形式 是 : 
Read [文件 名 ， 类 型 描述 ] 
这 个 函数 按照 类 型 描述 的 说 明 从 指定 文件 读 入 数据 ， 并 返回 读 入 的 数据 。 可 以 用 Read[ 文 


件 名 ] 的 形式 表示 从 指定 文件 读 入 一 个 表达 式 。 从 文件 读 入 数据 关键 是 正确 地 描述 数据 的 类 型 。 
类 型 描述 是 一 种 特殊 的 表达 式 ， 它 的 基本 元 素 是 


Byte 读 入 一 个 字 节 的 数据 ， 返 回 一 个 整数 

Character ” 读 入 一 个 字 节 ， 返 回 一 个 字符 

String 读 入 一 个 以 换行 符 结尾 的 字符 串 

Real 读 入 一 个 近似 数 , 近似 数 以 一 般 的 带 小 数 点 的 形式 给 出 ,或 以 C 语 言 或 Fortran 
语言 的 形式 给 出 

Reall 读 入 的 数据 总 转换 成 一 个 近似 数 

Number 读 入 一 个 整数 或 一 个 近似 数 ， 如 果 读 入 的 数 不 包 含 小 数 点 ， 它 们 被 转换 成 整 
数 

Expression” 读 入 一 个 表达 式 

另外 ， 函 数 OpenRead[ 文 件 名 ]、CloseRead[ 文 件 名 ] 用 于 打开 和 关闭 给 输入 函数 使 用 的 数 


据 文件 。 


338 


